A REVISTA DOS USUÁRIOS DO TK 


ct 






02 
eo 
Vi;iDIDB e 
Mm 
A 
O 
A 
xú 
“LIFE” 
EM LINGUAGEM 
DE MAQUINA 
Ee 
a 
2 
A, 
ES 
É 
P 
Ê 
9 
Ú 
ã 
ge do ds desdsedo dr -dosão Do) 
Quebra Cabeça: CCB CE CO GE CE CH CR Cm cm 
O Motoqueiro O 0 Aritmética Financeira 


no Deserto 
Fita do Mês: 
O Simulador de Vôo 


Arquivo 
Cursos de Basic TK 
e Assembly Z80 


Programas para o seu 
TK82-C e TK85 





Rielejons Serido) 

16K 

Esse programa apresenta o tabuleiro no 
video e utiliza o eficiente código de ma- 


quina permitindo 4 (quatro) niveis de 
dificuldades de jogo 


LABIRINTO 
TRIDIMENSIONAL - 16K 


em três dimensões, O jogador po 
cera cetinir é dificuldade do Labirinto 
O programa apresenta a posição do jo- 
sor em perspectiva Em qualquer mo 

f sivel pedir auxho ao com: 
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MATEMÁTICA | 
16K/64K 

Análise grafica de funções matemati- 
cas, resolução de sistemas de ua- 


ções lineares [16K-51 equações '64k-95 
equações, e Calculo de integrais defi- 


16K 


Este jogo apresenta o tabuleiro e as pe 
vas ro video Permite a escolha de ate 
7 niveis de dificuldade. O programa to: 
nece a Qualquer momento, a lista 
ces efetyados e aim 
posição das peças Ele poco 
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MONSTRO DAS TREVA 
TRIDIMENSIONAL - 16K 
Impressionante jogo onde você deve 


evitar o monstro das trevas, Tudo em 3 
dimensões. 


INVASORES DO 
ESPAÇO - 16K 


Consiste de uma frota de naves invaso- 
ras extraterrenas, descendo no planeta 
Terra. Sua missão e destruir as naves 
invasoras dispondo da arma de raios ia- 
ser 


Jogo animado onde deverão ser apaga: 
dos todos os pontinhos espalhados em 
um labirinto (o programa contém 15 ti 
pos de labirinto), Você sera impedido a 
qualquer custo. por 4 extraterrenos, 
quardiães do labirinto, que poderão ser 
combatidos com cargas de raros-laser 
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Jogo animado, tipo “fliperama” O joga 
dor deverá demolir uma parede com 
uma bola que se encontra sempre em 
movimento. & 


Emocionante corrida de rally em um la 
birinto. onde poderão ser testados sua 
habilidade e seus reflexos Para conse 
Quir seu intento, você deverá evitar Car 
ros-ataque e obstaculos em seu trajeto 


T-KALC 
16K/64K 


Programa desenvolvido para cálculos 
numericos em planilha. O usuario defi- 
ne as colunas. as linhas e as formulas 
aplicadas. Similar ao famoso Visicaic 
De grande versatilidade, este programa 
permite a formulação de cálculos cien- 
trficos e comerciais, analise de tabelas 
numericas e outras aplicações 
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Em várias ocasiões já deixamos bem 
claro que o enfoque de nossa publicação é 
muito mais didático que jornalístico. Que- 
remos, é lógico, que o usuário do TK seja 
alguém bem informado, mas também, e 
principalmente, queremos que ele aprenda 
a tirar o máximo proveito de seu equipa- 
mento. O micro processador Z8], que é o 
coração do TK, tem funções apenas parcial- 
mente aproveitadas por quem programa em 
BASIC. Por isso entramos com esse núme- 
ro, no universo do ASSEMBLY [incidental- 
mente, “ASSEMBLER”" não é uma lingua- 
gem: é um programa que permite elaborar 
programas em ASSEMBLY). 

Como a linguagem de máquina é de ár- 
duo aprendizado, a nossa preocupação di- 
dática nos diz para não correr. Por isso, en- 
quanto o curso de ASSEMBLY do Flavio 
Rossini avança, os artigos da revista neste 
tema se limitarão, por enquanto, a ensinar 
o leitor a digitá-los e utilizá-los sem entrar 
em detalhes sobre a linguagem em si. 

Quanto ao crescimento (e não apenas 
físico) de nossa revista, este número o já 
fala por si. Só nos resta agradecer a avalan- 
che de novos assinantes que apesar de al- 
guns tropeços e atrasos iniciais (que vamos 
levar algum tempo para consertar) confia- 
ram em nós e permitiram a consolidação 
deste empreendimento que abre um canal 
de diálogo, informação e aprendizado para 
a comunidade cada vez mais vasta dos usuá- 
rios do TK. 
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CARTA DOS 
LEITORES 


Caros amigos da Micromega, 

Fiquei muito contente com o lançamento da revista 
“Usuários: do TK”, Era isso que faltava no mercado da 
informática, uma revista dedicada somente para nós, que 
possuímos um TK. Gostei muito dessa promoção de as- 
sinatura, no qual, ganhamos uma fita de programas 
“grátis”. Desejo-lhes todo o sucesso. 

Gostaria que me enviassem maiores informações sobre 
o programa “Barão Vermelho”, o qual não rodou direi- 
to em meu TK. 

Luciano Chaves (Florianópolis — SC) 


Caro Luciano, 

Obrigado pelo incentivo. Com relação ao programa 
“Barão Vermelho”, que fez tanto sucesso que foi até 
copiado por outra revista do ramo, ele provavelmente 
não rodou direito no seu TK pois ele não possui 
SLOW. Para eliminar este inconveniente você deve inse- 
rir após cada instrução PRINT uma instrução PAUSE 
30. Desta forma a tela ficará piscando mas dará para jo- 
gar. Se você enviar o seu computador à fábrica da 
MICRODIGITAL, eles podem instalar o circuito SLOW 
para você. Antes escreva uma carta para saber o custo. 


O 


Prezados Senhores, 

Ao folhear a revista MICROHOBBY, cujo primeiro 
exemplar recebi no dia 15/6, tive uma decepção. 

Trata-se da falta da seção HOBBY indicada no exem- 
plar nº Z como a seção que apresentará projetos eletrô- 
nicos para serem executados por todos os leitores, que 
como eu têm a eletrônica como hobby. Nesta seção, de- 
veria constar as informações necessárias para a adapta- 
ção da função SLOW em nossos computadores. Che- 
guei a esta conclusão lendo o último parágrafo do pro- 
grama Boliche editado no exemplar nº Q, que informava 
que o número 1 da revista trazia os detalhes para acres- 
centar o SLOW em nossas máquinas. 

Gostaria também que me fosse sanada uma dúvida 
quanto ao recebimento da fita brinde, pois não a recebi 
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juntamente com o exemplar nº 1. Pediria então que me 
informassem quando será feito o envio da referida fita. 

Quero também parabenizá-los pelo conteúdo do nº 
1 que pecou somente pelo reduzido número de páginas. 
Acho que seria de interesse de todos os leitores que a 
revista tivesse o número de páginas ampliado, abrindo 
novas seções, não esquecendo, portanto da seção 
HOBBY prometida no exemplar nº (, que não apareceu 
no n9 1 e que me parece não aparecerá no nº 2. 


José Daniel Oliveira Vigário 


Prezado José Daniel , 


Com relação à fita brinde houve realmente um atraso, 
motivado por várias coisas. Uma delas foi um “grilo” re- 
lativo ao TK85 que nos fez interromper a produção. 
Posteriormente, ela foi retomada a todo vapor e você ao 
ler estas linhas já deve tê-la recebido. 

Com relação ao número reduzido de páginas, a revista 
que você têm em mãos já é uma resposta. 

A seção HOBBY logo se desenvolverá atodo vapor Rece- 
bemos de nossos correspondentes muitos projetos pa- 
ra “hobbystas”' mas, infelizmente, nem sempre existem 
componentes nacionais disponíveis. Entretanto estamos 
fazendo as devidas adaptações para futura publicação. 

Com relação ao SLOW, quando escrevemos “. .. co- 
mo fazer para acrescentar SLOW à sua máquina.” está- 
vamos pensando em dar uma relação de oficinas aptas a 
fazer tal adaptação. 

Tal relação ainda não foi publicada pois aguardamos 
respostas de uma série de cartas que enviamos para le- 
vantar tal lista. 

Ficamos muito surpresos quando percebemos que al- 
guns leitores estavam esperando o circuito, 

Muito bem, agora vamos ter que montar uma matéria 
a esse respeito. Ela, porém, só poderá ser publicada se 
não violar segredos industriais das duas fábricas brasilei- 
ras envolvidas. 

O 








Prezados Senhores, 

Antes de mais nada, os meus cumprimentos pelo lan- 
camento de MICROHOBBY. Sem dúvida nenhuma, o 
TK é o computador mais vendido devido ao baixo custo 
(em relação aos outros micros existentes no mercado) e 
a sua grande capacidade de operação. Desejo muito su- 
cesso a vocês, uma vez que nós, usuários do TK só temos 
a ganhar com isso. 

Agora vamos às dúvidas, para as quais peço a atenção 
e elucidação de vocês: 


1) Por que os “micros” nacionais são muito mais caros 
do que os originais estrangeiros? Seria talvez abuso da 
reserva de mercado? 


2)No nº À da MICROHOBBY, seção “Programa do 
Mês”, no programa BOLICHE, vocês escreveram que no 
nº 1 seria mostrado como acrescentar “SLOW” aos 
TK's que ainda não o tivessem. Não mostraram e não 
comentaram nada a respeito. Então pergunto: como fa- 
zer para acrescentar “SLOW” ao meu TK? 


3) Como explicar o desempenho do programa “DEMO- 
LIDOR”, da MICROSOFT, num TK sem SLOW? Isto 
sempre me deixou bastante curioso. 


4) Cadê a fita brinde? Nenhuma notícia sobre ela no 
no 1. 


5) É verdade que existem problemas com o joystick e a 
printer do TK? 


Luis Henrique B. de Miranda — B. Horizonte — MG 


Prezado Luis Henrique, 
Obrigado pelos cumprimentos. Elucidando suas dúvi- 
das pela ordem: 


1) Se você fizer as contas pelo câmbio real e não oficial, 
verá que os micros nacionais não são tão mais caros. 
além disso, você deve saber que a “escala” de produção 
influi significativamente no custo. O Brasil é um país po- 
bre, com um povo pobre e poucos privilegiados podem 
se dar ao luxo de comprar um micro: o TK que é o “pro- 
letário” dos micros custa 3 salários mínimos. Enquanto 
que no Brasil o número de micros que usam a lógica 
SINCLAIR ainda está longe de 50000, no mundo (Ingla- 
terra, Itália, França, Estados Unidos e Canadá) temos 2 
milhões. 
2) Veja a resposta ao José Daniel 
3) Passamos a pergunta para a seção DESGRILANDO 
(pág. 12 ). 
4) Veja José Daniel 
5) Os recentes “pacotes” fecharam a importação de uma 
peça vital para a impressora do TK. Enquanto perdurar 
esta proibição vamos ter que aguardar mais um pouco. 
O Joystick não tem problemas. Quem pode apresen- 
tar problemas é um lote de máquinas que só funciona 


com joystick mediante a troca de alguns resistores. Se 
sua máquina tiver este problema fomos informados pela 
MICRODIGITAL que ela faz o ajuste citado gratuita- 
mente, correndo por sua conta apenas as despesas de fre- 
te. Basta enviar sua máquina para a MICRODIGITAL, 


mesmo que ela já esteja fora de garantia. à 


Caro Senhor Diretor, 

Tendo recebido o nº 1 da revista MICROHOBBY, 
tomo a liberdade de escrever-lhe esta curta missiva, pelos 
fatos que passo a expor: 


1) Sou possuidor de micro NEZ-8000, que, tal como os 
primeiros TK82 fabricados, não possui a modalidade 
“SLOW”, 


2) Assim, examinando o nº G da revista, resolvi assiná- 
la, pois à página 6 (Programa BOLICHE) estava expres- 
samente dito que no nº 1 constariam as informações de 
“como fazer para acrescentar o SLOW à máquina” 


3) Qual não foi minha surpresa, ao verificar que no nº 
1 não se fazia qualquer menção a tal assunto. Ora, en- 
tendendo que vários dos assinantes dessa revista, que co- 
mo eu depositaram irrestrita confiança em sua publica- 
ção, (o que, cá entre nós, trata-se de risco incalculável, 
nos dias em que vivemos) são possuidores do NEZ-8000, 
acredito que a pretenção de muitas respostas não foi 
atendida. 


4) É claro que se eu fosse adquirir um micro hoje, opta- 
ria pelos fabricados pela MICRODIGITAL, recusando- 
me a adquirir qualquer produto da PROLÓGICA. 


5) Assim, como tal não ocorreu, solicito de V.Sa. que 


corrija esta falha, publicando com urgência o esquema 
do SLOW. 


Como sugestão proporia que publicasse, também, es- 
quema para se adaptar um ou dois joysticks (afinal a 
MICRODIGITAL tem que vendê-los, não?) no 
NEZ-8000 ou TK82C e modificação do fundo e caracte- 
res no vídeo (de preto e branco, respectivamente no 
NEZ-8000 para branco e preto e vice-versa no TK82C). 


Sérgio R.M. Ferreira — Santos/SP 


Caro Sérgio 

Calma! A maioria de suas dúvidas já foi esclarecida na 
resposta à carta do José Daniel. Apenas queremos acres- 
centar duas coisas: 


1) Este tipo de cobrança é muito bom (mesmo que nós 
sejamos o alvo), pois o consumidor brasileiro não está 
acostumado a estrilar para fazer valer seus direitos. 


2) A MICROMEGA, que edita a revista MICROHOBBY 
não é da MICRODIGITAL, apesar de manter um estrei- 
to relacionamento com esta firma, por estar publicando 
uma revista do interesse de seus clientes. O teor de sua 
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carta sugere uma interdependência que na realidade não 
existe. De qualquer forma passamos uma cópia de sua 
carta para a MICRODIGITAL, pois sua sugestão de 2 
joysticks é bem interessante. ” 


Prezados Senhores, 

Com prazer, acuso o recebimento e agradeço o envio 
do nº 1 de MICROHOBBY, a revista dos Usuários do 
TK. 

Valeu a pena esperar. A revista está sensacional em to- 
dos os aspectos. Uma curiosidade: alguém da Equipe é 
professor? Por favor, não estranhem a pergunta; é que 
eu sou, e a linguagem da Revista, tão didática, precisa e 
bem humorada, me soou “algo familiar”... 

Assim sendo, somente posso aplaudir com entusiasmo 
o surgimento desta publicação, que tenho a certeza, 
muito virá acrescentar e a enriquecer tudo o que já exis- 
te entre nós sobre Informática. 

Gostaria de saber se já estão disponíveis os livros 
anunciados e, se já estiverem, seus preços e condições 
de compra. 

Aproveitando a ocasião, desejo submeter à considera- 
ção de V. Sas. duas dúvidas relacionadas a programas: 


1) Em uma fita da Kristian chamada SPACE RAID, no- 
tei a presença de uma instrução REM enorme (toma 
quase a tela toda), cheia de caracteres (aparentemente) 
sem sentido. O que pode ser isto? 


'2) Outra fita, da MICROSOFT, chamada “Demolidor”, 
apresenta problemas ao se tentar carregá-la: quase sem- 
pre, ao final do carregamento, a tela fica cheia de listas 
irregulares ou se apaga, obrigando, em ambos os casos, 
a desligar momentaneamente o computador, para que 
as coisas voltem ao normal, isto é, retorne o K. Se pos- 
sível, gostaria de uma palavrinha sobre isso. 

No mais, é aguardar (ansiosamente) o nº 2 e reiterar 
meus mais entusiásticos votos de crescimento e pros- 
peridade para a Revista. 

Seja bem vinda, MICROHOBBY'! 

Theodomiro Aguiar (Petrópolis — RJ) 


Prezado Prof. Theodomiro, 

Realmente na equipe temos dois professores, o 
PIERLUIGI e o FLAVIO, ambos extremamente bem 
humorados (apesar das fitas-brinde) e estamos em vias 
de aumentar a equipe com mais um. Isto não é mera 
coincidência ou uma espécie de '“'máfia pedagógica”, 
mas faz parte da própria filosofia desta publicação: nos- 
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sa finalidade não é apenas “informar”, mas principal- 
mente ensinar. Daf o cunho mais didático que jornal ísti- 
co. Os livros anunciados estão em fase final de proces- 
samento gráfico e brevemente serão lançados no merca- 
do. 
Com relação às dúvidas sobre programas: 

1) A gigantesca instrução REM na fita da Kristian arma- 
zena uma sequência de bytes que constitui uma subroti- 
na em linguagem de máquina. A leitura de “LIFE” e 
“APAGANDO A TELA” publicados neste número escla- 
recerão melhor. 


2) A fita deve estar com defeito ou sofreu, após sua pro- 

dução, algum acidente magnético. Escreva à MICRO- 

SOFT, informando-se sobre a possibilidade de troca. 
Finalmente, obrigado pelas boas-vindas. 

O 


Prezados Senhores, 

Não gostei muito do 1º número da revista MICRO- 
HOBBY. Achei-a muito pequena e incompleta, apenas 
16 páginas. A seção de DICAS, a meu ver, estava fraca 
e não achei nada sobre a seção HOBBY. Envio um pro- 
grama de minha autoria na esperança de que a revista 
melhore, principalmente que ela cresça no tamanho. 
Trata-se do conhecido “Jogo da Forca” e ocupa quase 
3K bytes. Aproveitando esta envio algumas perguntas: 
A impressora usada pelo TK&2C é de boa qualidade? 

Ela imprime todo tipo de símbolos gráficos? 
Ela usa papel especial? 
Como é feita a impressão? 
O que significa eletro-sensível? 
A impressora necessita de interface? 
Há necessidade de alguma modificação no computador? 
Se houver quanto custa e quanto tempo leva? 
Fernando Araujo Lopes (São Paulo — SP) 


Caro Fernando, 

Como você pode ver a revista já cresceu bastante, gra- 
ças a pessoas como você ou o Sérgio que apesar de não 
gostarem do começo e não confiarem muito, nos deram 
uma força e permitiram que a revista melhorasse cada 
vez mais. 

Infelizmente não podemos aproveitar o seu “Jogo da 
Forca”, pois as gavetas da redação transbordam com os 
“Jogos da Forca” já enviados. Queremos aproveitar a 
oportunidade para avisar o pessoal: 


Forca 
Senha 
Velha 
Invasores 


não serão mais publicados, tá?! 


Respondendo a suas perguntas: 
A impressora usada pelo TK (por enquanto a verao 








inglesa, enquanto a brasileira tiver dificuldades de im- 
portação de peças) é de boa qualidade, imprime todos os 
símbolos que aparecem na tela e algo mais (veja “GRÁ- 
FICOS EM ALTA RESOLUÇÃO no nº 2). O papel é 
especial: ele é revestido por uma finíssima camada metá- 
lica sobre um fundo escuro. 

Um estilete o percorre em alta velocidade. Como o 
papel é condutor de eletricidade, quando no estilete é 
aplicado uma tensão elétrica, dele salta uma faixa que 
faz o revestimento metálico se evaporar num ponto. Sob 
este ponto aparece o fundo escuro. Todas as cópias dos 
programas editados nesta revista são tiradas numa im- 
pressora deste tipo. O TK aceita esta impressora direta- 
mente na conexão da expansão de memória. Como a co- 
nexão da impressora é do tipo macho de um lado e fê- 
mea do outro, a expansão de memória pode ser ligada 
ao computador simultaneamente com a impressora. Já o 
CP 200 e o NEZ8000 da PROLÓGICA precisam de uma 
pequena adaptação, pois em sua fabricação foram utili- 
zados conectores traseiros incompatíveis com os equipa- 
mentos SINCLAIR. 

Temos notícias, inclusive, que dão conta de uma pró- 
xima fabricação de interfaces que permitirão conectar os 
TKs com as impressoras nacionais usando papel comum. 
Obviamente estas impressoras são muito mais caras. = 


Prezados Senhores, 

Meu nome é Marcelo Arouca Araujo e tenho 14 anos. 
Eu sou fã de eletrônica e de computação, sei um pouco 
das duas. Quando comprei o meu computador, pensei 
em fazer um curso de BASIC, mas depois resolvi apren- 
der sozinho, apenas olhando o manual que vem junto. 
Eu sei alguma coisa, mas isso não é suficiente ainda para 
poder fazer programas complicados, por isso eu mando 
para vocês este programa simples. Com o tempo eu espe- 
ro melhorar e poder mandar programas à altura desta 
revista. 

Eu gostei muito da primeira aula e das DICAS. Com a 
primeira aula da revista aprendi com mais detalhes o que 
eu já sabia, mais ou menos. 

O programa que mando para vocês é muito famoso, 
chama-se Forca. 


Caro Marcelo, 

Se você der uma lida nas outras cartas verá que não 
publicamos Jogo da Forca. Apesar disto ficaremos mui- 
to felizes em receber outras colaborações suas. Mesmo 
programas “'simples'” podem ser muito úteis e neste caso 
serão impressos. Temos certeza, também, que logo logo 
você estará desenvolvendo coisas em nível “profissio- 
nal”. o 


Prezados Senhores, 

Tudo muito bem, tudo muito ótimo. Mas será que 
não esqueceram algo? Se não me engano, eu deveria re- 
ceber uma ou duas fitas justamente pelo fato de ser as- 
sinante desta (brilhante) revista. 

A propósito: Será que os senhores poderiam enviar 
maiores detalhes sobre “TIG-LOADER”'? (pág. 11 — 
nº 1), ou deveria escrever para tal firma? 

Roberto Araujo (Rio de Janeiro — RJ) 


Caro Dr. Roberto, 

A fita é só uma (com dois jogos) e já foi enviada. Des- 
culpe pelo atraso. Com relação ao TIG-LOADER, aqui 
na redação testamos um protótipo, mas não temos maio- 
res detalhes técnicos ou comerciais. Acho que a solução 
é escrever para a firma. 


Um abraço. O 


Caro Editor, 

Recebi meu 19 número da revista Microhobby e gos- 
tei muito. 

Aproveitei todos os programas, principalmente o utili- 
tário. Gostaria de sugerir que fosse este transformado 
em linguagem de máquina. 

Gostaria de saber em que livraria ou representante do 
TK, na região de Campinas, poderia encontrar as novi- 
dades anunciadas na página 12. 

A única coisa que me entristeceu ao receber este nú- 
mero foi a falta de tão decantada fita com os jogos, por 
isso, peço ao senhor a gentileza de enviar-me uma fita, 
pois não gostaria de começar mal a minha coleção. 

Cláudio S. Tonhetta (Sumaré — SP) 


Prezado Cláudio, 

Os livros anunciados serão lançados brevemente, pois 
estão na fase final de processamento. A fita já foi envia- 
da e com relação à transformação do programa do 
BASIC para ASSEMBLY temos uma sugestão. Estude 
com cuidado as lições que estamos publicando e logo 
você estará em condições de fazer isto sozinho. Quan- 
do isto acontecer publicaremos seu programa com mui- 
to prazer (e muito orgulho). o 
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MAIS TRADUÇÕES 
PARA O BASIC TK 





Igor Sartoni 


No número anterior de nossa revista falamos sobre a 
instrução IF... THEN... ELSE ..., comum a vários 
computadores, mas que, por razões construtivas, não foi 
incluída no conjunto de instruções do TK. Todavia, com 
um pouco de imaginação, conseguimos contornar o pro- 
blema. Sabemos que esta não é a única instrução que 
não faz parte dos recursos do TK e de computadores si- 
milares. Além disso, é comum em alguns computadores, 
como, por exemplo, no TRS-80, o uso de instruções 
IF... THEN... ELSE encadeadas, o que pode dificul- 
tar a tradução de um programa para outro. 


Condicionais Encadeadas 

Chamamos de condicionais encadeadas duas ou mais 
instruções IF... THEN... ELSE... dispostas de tal 
forma que uma condicional permite ou não o acesso a 
uma outra condicional, com a seguinte estrutura: 


IF, (condição 1) THEN 1IF5 (condição 2) 
THEN IF, (condição n) THEN (função ou operação 
n+ 1) ELSE, (função ou operação n) . . . ELSE, (fun- 
ção ou operação 2) ELSE, (função ou operação 1). 
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Por exemplo: 


10 IF X= 0 THENIFY=0OTHENIFZ= 
O THEN LET A = O ELSE LET A = 1 ELSELETB 
= 1 ELSE LET C= 1 


Este tipo de estrutura pode ser compreendido como 
uma operação matemática com diversos níveis de paren- 
teses. Assim, a primeira condicional IF “fecha” com a 
última condicional ELSE, a segunda com o penúltimo, 
e assim por diante. 

Levando isso em consideração, podemos “quebrar” 
esta linha de programa em três partes: 


IF X= O THEN ELSE LET C= 1 
PE, 
2) IFY=0 THEN ELSE LET B= 1 


A 


IF Z= (O THENLETA - O ELSE LETA = 1 
> 
















FP 
4 






E 
a Se você observar bem, o que isto pode significar é que 
* podemos transformar esta linha de programa em outras 
. E e imuço “que consigamos preencher o espaço em bran- 
— dedicado THEN e ELSE. 
| ra preencher este espaço, devemos nos lembrar o 
| » uma instrução desta natureza faz. A primeira coisa 
Ea devemos levar em conta é que, nesta linha de pro- 
| Ema se a condição X = À for satisfeita, a condição 
“Y= 6 deve ser verificada. Do mesmo modo, se a condi- 
| ção a (O for satisfeita, deve-se verificar a condição 
| Z= 0. 
7? Assim, O que devemos fazer após verificar uma dada 
condição é verificar a condição seguinte. Levando isso 
em conta, a linha de programa em questão pode ser rees- 
crita da seguinte forma: 


ID IF X = 6 THEN GOTO 20 ELSE LET C=1 
20 IF Y = 6 THEN GOTO 30 ELSE LET B=1 
30 IF Z = O THEN LET A = O ELSE LET A- 1 
40 .. . (sequência do programa). 


Existe um pequeno problema, que deve ser contor- 
nado: ao completarmos uma linha em um programa em 
BASIC, o computador executará imediatamente a linha 
seguinte. Entretanto, a linha seguinte contém uma com- 
paração que só deve ser feita se e somente se a compa- 
ração anterior for verdadeira. Da forma em que se 
encontra a nossa solução, se a primeira condição for ver- 
dadeira, a segunda condição é verificada. Se for falsa, C 
é igualado a 1 e a segunda condição é verificada, coisa 
que não queremos. Para que isso não ocorra, devemos 
desviar da linha que contém a comparação seguinte por 
meio de um desvio incondicional. Assim: 


0 IF X = O THEN GOTO 20 ELSE LET C=1 
15 GOTO 40 
20 IF Y = (6 THEN GOTO 30 ELSE LET B= 1 
25 GOTO 44 


30 IF Z= (0 THEN LET A = OQ ELSE LET A=1 


40 ... (sequência do programa) 


Resta mais um problema: a condicional ELSE. Para 
resolver este problema, recorreremos a uma das soluções 
que indicamos no artigo que publicamos no número an- 
terior desta revista. Assim, por exemplo, o trecho onde 
aparecem as linhas 10 e 15 ficará: 


10 IF X= 6 THEN GOTO 20 
12 IF X<> O THENLETC=1 
15 GOTO 40 


Da mesma forma, poderemos aplicar esta solução para 
as outras linhas do programa, onde aparecem condicio- 
nais ELSE. 


INPUT múltiplo e com mensagens 


Algumas vezes encontramos, em alguns programas de- 
senvolvidos para outros computadores, INPUT em que 
são pedidas mais de uma variável e, além de tudo, apare- 
ce uma mensagem qualquer, por exemplo: 


10 INPUT “ENTRE COM OS VALORES DE 
AEBº,A,B 


Quando aparecer um INPUT com mensagens, o com- 
putador primeiro imprimirá a mensagem e ficará aguar- 
dando a introdução dos valores. No nosso exemplo, são 
apenas dois valores. Devemos digitar o primeiro valor pe- 
dido, uma vírgula e o segundo valor pedido, e, então, 
digitar ENTER. 

No TK e em computadores semelhantes, tanto há 
mensagem como várias variáveis de entrada não podem 
ser digitadas na mesma linha. A solução é decompor es- 
ta instrução em várias outras, levando em consideração 
também que, numa instrução INPUT, em alguns com- 
putadores diferentes do TK, uma vez digitada a tecla 
ENTER, o valor digitado é impresso imediatamente. 

Tendo isto em mente, podemos reescrever a linha em 
questão da seguinte maneira: 


2 PRINT “ENTRE COM OS VALORES DE 
A E B” 
3 INPUT A 
4 PRINT A 
5 INPUT B 
10 PRINT B 


Nem a disposição das variáveis nem a mensagem preci- 
sam ser rejeitadas. O melhor que devemos fazer é adap- 
tar o trecho do programa às nossas necessidades e com o 
nosso gosto. Assim, poderemos, por exemplo, dar a se- 
guinte forma ao trecho de programa em questão: 


10 PRINT “QUAL O VALOR DE A?” 
20 INPUT A 
30 PRINT A 
40 PRINT “QUAL O VALOR DE B?”; 
50 INPUT B 


60 PRINT B 
D 
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ou ainda: 


10 PRINT'A =", 
20 INPUT A 
30 PRINT A 


ON A GOTO nº de linha 1, nº de linha 2, nº de linha 3 
«.«.nP9 de linha n. 


A instrução ON A GOTO tem como função enviar o 
programa para uma entre várias alternativas dadas por 
uma condição, representada por uma variável inteira, 
cujo nome é escrito por uma única letra (por exemplo, 
K). Por exemplo, na linha de programa: 


10 ON C GOTO 100, 230, 350 


Se C for 1, o computador vai executar a linha 100; se 
for 2, 230 e, se 3, 350. Se C for menor do que 1 ou 
maior do que n (no caso, 3), o programa vai para a linha 
seguinte. Os números de linha não precisam estar em se- 
quência. Assim: 


100 ON G GOTO 400, 10, 350 


Se G for 1, o programa irá para a linha 400, se for 2, 
para linha 10 e se for 3, para linha 350. 

Se você quiser usar este recurso em seu TK você po- 
derá usar um dos “macetes que mostraremos a seguir”. 


19 caso: o programa original apresenta os números de 
linha após o GOTO numa sequência crescente de 
múltiplos de um mesmo número inteiro. 


Suponha que Oo programa que você quer “traduzir” 
para seu computador tenha a seguinte linha: 


50 ON A GOTO 100, 200, 300 


Note que os números de linha estão numa sequência 
crescente de números inteiros, todos múltiplos de 100. 
Para este caso, podemos usar: 


5h GOTO 100* A 
60 ... (sequência do programa) 


Todavia, a instrução ON A GOTO ... faz ainda outra 
coisa: se À for menor que 1 ou maior que 3, o compu- 


tador executará a linha seguinte. Para completar o traba- 
lho, devemos acrescentar a linha: 


45 IFA<1 ORA>3GOTO 60 
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29 caso: 0 programa original apresenta quaisquer 
números de linha após o GOTO. 


Quando o programa original apresenta quaisquer nú- 
meros de linha após o GOTO só podemos lançar mão de 
condicionais do tipo IF ... THEN. Isto é possível por- 
que o À ou a variável que indica o desvio pode ser enca- 
rada como uma variável que deve atender a uma dentre 
n condições. Por exemplo,-a linha: 


50 ON J GOTO 80, 10, 70 
Poderá ser escrita como: 


50 IF J= 1 THENGOTO 80 
55 IF J= 2 THEN GOTO 10 
57 IF J= 3 THEN GOTO 70 
60 ... (sequência do programa) 


Neste caso, não é necessário acrescentar nenhuma li- 
nha referente à comparação com valores menores que 1 
e maiores que n, pois o programa segue automaticamen- 
te para a linha seguinte, após passar por todas as compa- 
rações. 


Conclusão 


Existem muitos outros problemas encontrados por 
quem deseja rodar um programa de outro computador 
no TK ou em computadores com a mesma lógica. Ainda 
existem outras instruções que podem ser encontradas 
em outros computadores e não no TK (ou encontradas 
sob uma sintaxe diferente) e muitas delas poderão ser fa- 
cilmente implementadas no seu computador. A recíipro- 
ca também é verdadeira. Existem funções que aparecem 
no TK e não aparece em outros computadores, que obri- 
gam seus usuários a lançar mão de outros recursos para 
contornar o problema. Um exemplo típico é a função 
PAUSE que normalmente não é encontrada em outros 
computadores. 

Isso não torna o BASIC do TK inferior ao dos demais 
computadores, pois cada fabricante deu uma prioridade 
diferente ao seu projeto. No caso do TK, a orientação 
foi torná-lo compacto e a um preço acessível, com um 
hardware mínimo. O resultado foi uma linguagem 
BASIC um pouco diferente das demais, contendo instru- 
ções completas em cada tecla, ocupando um pequeno 
espaço na memória de programa. 

Por outro lado, esta série de artigos será aberta à su- 
gestões. Se você deparar com um programa de um outro 
computador que não conseguir traduzir, envie-nos uma 
cópia, citando a marca e o modelo do computador e a 
instrução que lhe causou problemas. Se for possível uma 
tradução, a instrução em questão poderá ser objeto de 
um futuro artigo. 

O 
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DATALIFE 


VERBATIM “ 









PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFICA: 
QUALIDADE COM 5 ANOS 

DE GARANTIA E O MELHOR 
PREÇO DO MERCADO. 


ENTREGA IMEDIATA 


simples face /simples densidade 
26 setores - 128 bytes /setor 8 polegadas 








DATALIFE * diskettes são produzidos com uma única 
preocupação: o armazenamento de dados sem erros. 

Esse comprometimento requer precisas técnicas 

de produção e rigoroso controle de qualidade. 

DATALIFE = diskettes 8 ou 5 1/4 polegadas tem 
certificação 100% sem erros. 

A diferença DATALIFE “ é pura e simplesmente qualidade. 






FD 34-9000 








mm | Simples face/dupla densidade 
FD 34: E 
D 34-8000 Não setorizado - não formatado 8 polegadas 












dupla face/ dupla densidade 
26 setores - 206 bytes/setor 8 polegadas 









dupla face/ dupla densidade - Não setorizado 


não formatado 8 polegadas 





DD 34-4001 





Entrega a partir de setembro 1.983 









simples face/ dupla densidade 
5 1/4 polegadas 






MD 525-01 
MD 550-01 


Em embalagem de cartão com 10 unidades 
Caixas plásticas opcionais 










dupla face/ dupla densidade 5 1/4 polegadas 





PARA ENCOMENDAS FORA DE SÃO PA ULO, 
Revendedores e Fabricantes interessados. A MEMPHIS PAGA A LIGACAO. 
tel: (011) 2672-5332 DISQUE (011) 6800-8462 


Distribuidor: Memphis 
Indústria e Comércio Ltda. 


Av. Arnolfo de Azevedo, 108 - Pacaembu - São Paulo - Brasil 
CEP 01236 - PABX (011) 262-5577 - Telex (011) 34545 


Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849 - 225-3469 
Matriz: Av. Angélica, 35 - Sta. Cecília - São Paulo - Brasil - CEP 01227 
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MATEMÁTICA FINANCEIRA 


EM BASIC IK 





Flavio Rossini 





Muitas pessoas se lamentam da falta de comandos es- 
pecíficos em BASIC que tornem as “entradas” e "saí- 
das” de dados numéricos compatíveis com o padrão uti- 
lizado em aritmética financeira, ou seja, números encos- 
tados à direita (e não à esquerda), com duas casas depois 
da vírgula (e não ponto) e com um ponto entre cada 3 
algarismos. De fato, é desagradável ver os “milhões” na 
mesma coluna dos “milhares” ou então ver dados com 
milésimos de cruzeiros. 


Cr$ 1934.8769 
Cr$ 7.9815 
Cr$ 299873.4 
Cr$ 9 

Cr$ 10.056 


Apesar de outras linguagens como o FORTRAN, e 
principalmente o COBOL, fornecem facilidades para o 
manuseio de números nestes formatos, em BASIC isto 
também é possível. .. 

“Para tanto, desenvolvi duas subrotinas em BASIC para 
o TK que executam, respectivamente, a “entrada” e 
“saída” de dados no padrão financeiro. Analizemos, pri- 
meiramente a entrada de dados; ela deve aceitar núme- 


1 1. ss" e. 


ros com *. e”, por exemplo: 


1.345.003,37 


e transformá-lo para a maneira que o computador está 
“acostumado” para a execução de cálculos, ou seja: 


1345003.37 


Assim temos: 


998 REM +*z*IFLAVIO ROSSINI 1983%t+ 
3995 REM SR PLzENTRADA DE DADOS 
C> FORMATO FINANCEIRO 

1908 FAST 

18205 INPUT R$ 

18018 LET L=LEN AS 

19015 DIM B$S(L) 

1ig2e FOR U=1 TO L 

SA cos AS(U) <>." THEN LET BStU 

1930 IF AgEtU) =", THEN LET B$ tu) 


1035 NEXT U 
1946 LET N=VAL B$ 
18058 RETURN 


fig. 1 
Esta subrotina simplesmente retira todos os ".” do 
dado entrado e substitui a “”,”, por um “.”, deixando o 


valor numérico para cálculos na variável N. 
A subrotina para executar a “saída” de dados, ou se- 

ja, transformar um número no formato do computador 

para o formato financeiro, é bem mais complexo. Ela 

consta de três módulos básicos: 

a) ajustar o número para duas “casas” após o 


“44 44 


(que 
D 





será substituído por uma ad para Os três casos pos- 
síveis: nenhuma casa após o “.” (variável inteira ), uma 
casa após o ”.”” e duas ou mais casas após o ".” 

b) colocar um “.” entre cada 3 algarismos antes da vírgu- 
ARE R 

c) imprimir o número encostando-o à direita na vigésima 
coluna. 


1298 
18985 


REM +!:FLAVIO ROSSINI 1983%+ 

REM SR PySAIPR DE DADOS 
C/FORMATO FINANCEIRO 

FAST 

REM MOLULO AR 

LET 

LET L=LEN Ng 

FOR Ual TO L 

IF nNgtu) ="." THEN GOTO 3348 

NEXT U 

E tir 2.88" 

MN tl) 

NS eNSI 

=U+2 

NE=NE( TO L) 


Ag ur 5 


da 


no 
CR$ C;TAB ([21-L);,HNS 


RETURN 


O número a ser colocado deve ser colocado na variá- 
vel N. A título de exemplo, vamos apresentar um peque- 
no programa que utiliza estas subrotinas; você fornece o 
preço de custo de 3 produtos e a porcentagem de lucro 
desejada para cada um e ele fornece o preço de venda e 
o lucro ... 


S REM +35FLAVIO ROSSINI 1983++ 

1iQ REM EXEMPLO DE SPLICACAO PP 
RA  SUSBROTINAOS FINBNCEIRAS 

e SLOU 


es LET ENTFIN=19€6€8 

SO LET SAIFIN=1100 

SS DIM P5(3,14) 

480 DIM K (3,2) 

45 FOR I=i TO GS 

SO PRINT “NOME DO PRODUTO 


PCI) 

PRINT P&t(IJ 

“PRECO DE CUSTO 2º 
NTF IN 


Rê 


+85 
PRINT "PORCENTAGEM DE LUCRO 
98 GOSUB ENTFIN 
S LET IL =N 
POR CENTO” 





PAUSE 120 
CLS 


NEXT I 
POR X*3 TO 3 
LET LUCRO=IKÍII,2)%0.02) 5K (I 


PRINT “PRODUTO “,P$&(T) 
LET N=K(z,1) +LUCRO 
PRINT TAB 5; “PRECO DE VENDA 


GOSUB SAIFIN 
LET N=LUCRO 


PRINT TAB S; "LUCRO" 
adotados SAIFIN 





CXEMPLO: 

NOME DO PRODUTO 12 *% 
NBACAXI 

PRECO DE CUSTO ? 
CR$ SEB 


PORCENTAGEM ria LUCRO 7 
71,687 POR CENT 


PRODUTO ABACAXI 
PRECO DE VENDA 
Rg S62,5.7 


LUCRO 
Rg se, 47 


PRODUTO BANANG 
PRECO DE UENDA 

R$ 619,98 
LUCRO 

CR$ 262,46 


PRODUTO CAVIAR 
PRECO DE VENDA 


CR$ qro 27.268,37 
CR$ 18.288,77 
BF E 


RR ES ASSES ESSES RERESE: 
fig. 3 


Note que as subrotinas utilizadas apenas “truncam” 
as duas casas depois da vírgula; se for necessário um “ar- 
redondamento”” do resultado, bastaria, por exemplo, an- 
tes de entrar no módulo B da subrotina de saída, restar 
o valor do caractere N$ (L+1); se VAL N$ (L+1) for 
maior do que 5, basta somar (0,01 ao resultado; caso 
contrário, nenhuma providência deverá ser tomada. Ten- 
te fazer isto. E um bom exercício e o ajudará a entender 
as subrotinas aqui apresentadas. 

O 
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COMO COLABORAR 
COM MICROHOBBY 





A revista MICROHOBBY foi criada para servir de in- 
tercâmbio entre os leitores que participam do mágico 
mundo da computação. 

A característica realmente inovadora do computador 
pessoal, está em transformar cada consumidor num cria- 
dor. Aproveite sua criatividade e envie suas colabora- 
ções, recebendo remuneração a título de DIREITO 
AUTORAL. 

Se o material enviado for aprovado para publicação, 
a remuneração será de Cr$ 10.000,00 por programa. Se 
o programa for muito bom e muito extenso esta quantia 
será aumentada, a critério da redação, até Cr$ 30.000,00. 
Esta remuneração será oferecida também para artigos 
interessantes sobre o mundo do TX. 

A maneira ideal de nos enviar o material a ser publi- 
cado obedece às seguintes normas: 


1) Nunca esquecer de colocar nome completo, endereço 
e número de sua assinatura em todo material enviado (fi- 
tas, listagens de impressora, envelope, carta, etc). 

2) Enviar a listagem de programa datilografada ou, me- 
lhor ainda, tirada na impressora do TK. 

3) Colocar sempre uma linha REM com o nome do autor 
e O título do programa. 

4) Enviar uma fita com o programa gravado algumas ve- 
zes (se possível em gravadores diferentes). 

5) Na fita, gravar com microfone (em viva voz), algumas 
instruções Úteis, nome completo e endereço do reme- 
tente. 





DESGRILANDO 


Prezados Senhores, 

Se há um programa na memória do computador e eu 
dou LOAD, para procurar um programa numa fita. 
O programa anterior se apagará? Parcial ou totalmente? 
O programa da fita se carregará automáticamente? 

Jaime Jacobson 


Caro Jaime, 

Ao dar o LOAD o programa que está na RAM é apa- 
gado totalmente para dar lugar ao novo. Se o novo não 
estiver em boas condições você fica com o computador 
vazio. 
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O material não utilizado não será devolvido. Esta é 
uma norma corrente em quase todas as revistas do mun- 
do, que gera porém, uma certa desconfiança: “e se apa- 
garem meu nome do programa e o publicarem sem me 
remunerar?” 

Neste ponto podemos sugerir O seguinte: 

Ão enviar o material para qualquer revista, você, ou 
confia em sua seriedade, ou, é melhor não enviar o ma- 
terial, reservando-o para uma publicação digna de seu 
crédito. 

Uma outra saída é a de tirar uma cópia de todo ma- 
terial enviado e registrá-lo em cartório, para qualquer 
reclamação posterior. Obviamente tal procedimento só é 
aconselhável se o material enviado for valioso a ponto de 
justificar toda essa mão-de-obra. 


6) O material deve ser enviado para: 


MICROMEGA PM.D. Ltda. 
PROGRAMAS DO LEITOR 
Cx. POSTAL: 60081 

CEP: 05096 — S. PAULO — SP 


7) Qualquer dúvida, poderá ser esclarecida pelo telefone: 


(011) 257-5767 com Roberto. 
Aguardamos sua colaboração. 















ME: | 
f 

do i6M ] 
INTRO 
dig l 


Nisso é que reside a grande vantagem da função 
VERIFY do TK85: após gravar uma fita você entra com 
O programa, mas sem dar um LOAD. Se o programa gra- 
vado conferir com o original da RAM o computador 
acusará OK e você poderá desligá-lo tranquilamente. 

O programa da fita carrega-se automaticamente se vo- 
cê digitar seu nome. Por exemplo, se você tiver vários 
programas gravados numa única fita e der o comando: 

> 


LOAD “FORCA” 


Com o gravador na posição PLAY, a fita correrá sem 
que o gravador aceite os programas que passam. Ao re- 
ceber, porém, uma sequência correspondente a um pro- 
grama que foi gravado por um: 


SAVE “FORCA” 


o computador carregará sua RAM com ela. 


Prezados Senhores, 

No programa Barão Vermelho, da página nº 5, da Re- 
vista dos Usuários do TK nº À, há a linha 180 que usa 
as funções PEEK, ou seja: 180 IF PEEK (PEEK 
16398 + 256 X PEEK 16399) = 128 THEN GOTO 3740. 
Qual é o significado destas instruções? 

Na linha 215 e 240 trabalham com SGN que é outra 
dúvida. 

Eulálio Alves da Silva (Porto Velho — RO) 


Caro Eulálio, 

Os endereços 16398 e 16399 contém dois bytes que 
indicam uma variável do sistema denominada POSPR. 
Esta variável, por sua vez, indica a posição do PRINT no 
arquivo de imagem. Para uma explicação detalhada, po- 
rém, seria interessante que você acompanhasse uma ma- 
téria a ser publicada no número 4, justamente sobre a 
organização da memória do TX. 

Por outro lado, a função SGN (tecla F) é fácil de ser 
explicada. Ela assume o valor +1 se seu argumento é um 
número positivo qualquer, —1 se for negativo e O se for 
nulo. 


Experimente fazer no seu computador o seguinte pro- 
graminha: 


180 DIM 83%€3,18)5 

282 LET AG(I1I)="SCON 89” 

38 LET Ag(t2) ="SEN O” 

48 LET Ag(S) ="SON -55" 

se FOR I=1i TO 

68 PRINT ASG(T);U=";VUAL ASCT) 
78 NEXT TI 


Ele vai lhe explicar o SGN. 


Prezados Senhores, 


« « « Como explicar o desempenho do programa “DEMO- 
LIDOR” da MICROSOFT num TK sem SLOW? Isto 
sempre me deixou bastante curioso... 

Luis Henrique B. de Miranda 





Caro Luis Henrique, 

A explicação é simples: um computador que trabalha 
em FAST não envia dados para a TV enquanto está pro- 
cessando, por isso “perde o controle” de imagem. Um 
computador com circuito de SLOW usa este circuito co- 
mo uma espécie de interruptor: enquanto a tela está sen- 
do formada pela varredura, o computador é obrigado a 
não processar, mantendo a formação da imagem sob 
controle. No breve intervalo de tempo entre o fim de 
uma imagem e o começo da seguinte há um lapso de 
tempo durante o qual ele processa os dados pois neste 
intervalo não há problema em não se enviar dados para a 
Tv. O programa DEMOLIDOR é uma obra prima da 
acrobacia de programação: como cada instrução em lin- 
guagem de máquina tem um tempo de execução muito 
bem determinado, a sequência de instruções foi calcula- 
da de sorte a durar exatamente tanto quanto o lapso ci- 
tado. Ao terminar este lapso, o próprio programa faz o 
micro processador parar de processar durante a forma- 
ção de imagem. Note que, como o programa tem ramifi- 
cações, este cálculo foi feito para todas elas. 

Em resumo, “DEMOLIDOR” é um programa que tra- 
balha aos ' soluços ' em perfeita sincronia com a varredu- 
ra da TV, simulando um SLOW por “software”. e 











LANÇAMENTO 


PASSAGEM PARA O INFINITO 


Sensacional jogo onde você tentará encontrar e sair com um fabuloso tesouro em um 
complexo labirinto, guardado por terriveis polvos monstros, e com mais de 400 pas 
sos Para ajudá-lo, você contará com algumas espadas, que garantirão sua sobrevi 
vência na juta com os monstros, e com os prisioneiros encarcerados nas várias pas 
sagens que lhe indicarão o caminho a seguir Totalmente em linguagem de máquina 
com gráficos fantasticamente animados e trés niveis de dificuldade para desafiá-lo 


Preço Cr$ 7 000.00 
MIDWAY 














Uma grande guerra mundial esta sendo travada nas águas do Atlántico Você agora é 
o comandante do submarino atômico MIDWAY, sua missão destruir todas as bases 
inimigas em águas brasileiras Cuidado com os navios, aviões e minas espalhados pe 
los invasores Para auxiliá-lo podera contar com uma frota de navios de reabastec! 
mento, várias bases aliadas e um computador de bordo Um grande desafio com grá 
ficos e várias rotinas em linguagem de máquina Preço Cr$ 5 000,00 


JORNADA NAS ESTRELAS 
A sua nave interplanetária ENTREPRISE necessita livrar a galáxia dos invasores 
Klingon, e você como comandante da nave terá a árduas missão de destruilos Um 
jogo famoso no mundo todo em uma de suas melhores versões peia Softkristian. com 
efeitos gráficos serisacionais Preço Cr$ 5 000,00 


2º DIMENSÃO 
Agora você já pode ter um fliperama em seu microcomputador emg* DIMENSÃO dois 
jogos agitadissimos para testar sua coordenação motora Em SPACE INVADER você 
tem os originais invasores atacando sua naveeem ASTEROID você deve pousar em um 
planeta e. para tanto devera ultrapassar 0s obstáculos que vêem à sua frente tentando 
destruí-lo Grandes jogos em linguagem de máquina Preço Cr$ 5 000,00 


VISITA AO CASSINO 


Quatro grandes jogos em um só caça níqueis, roleta, 21. e perseguição fatal fazem 
parte deste sensacional conjunto Todos os jogos com gráficos e rotinas em linguagem 
de máquina, pars você que gosta de apostar e torcer Preço Cr$ 5 000.00 


10 JOGOS EXCITANTES PARA 1 K 


Dez pequenos jogos para você incrementar e aprender bastante os efeitos de progra 

mação de jogos e trabalhos com vídeo Se você não dispõe da expansão de 16 K já pode 

rá ter entretenimento com esta sensacional fita Se você já dispõede 18K compre para 
incrementá-los e terá excelentes jogos Preço Cr$ 4 000,00 


Rua da Lapa, 120 grupo 505 
Teis 252-9057 . 232-5948 
CEP 20021 - Rio de Janeiro RJ 


Todas as fitas vão em embalagem lacrada, com gravação profissional, para sua garan- 
tia. A Kristian trocará qualquer fita que seja enviada, com defeitos de fabricação 
































Compre conosco de qualquer pare do Brasi! sem 
despesas adicinas - enviando um cheque cruza 
do é nominal à KRISTIAN ELETRÔNICA Ltda (não 
precisa visa!) E garanta O recenimento de nosso 
ntormativo NOVIDADES KRISTIAN totaimente 
gratuito 
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lo. 


Programa do Mês 
“LIFE” 


oimulação da Evolução 


Pierluigi Piazzi 


O programa “LIFE” foi originalmente elaborado por 
John Conway da Universidade de Cambridge, Inglaterra 
em 1970. 

A versão que apresentamos foi adaptada para o TK 
por Flavio Rossini e encontra-se detalhada em seu livro 
“Introdução à Linguagem de Máquina para o TK”. 

Vamos nos limitar a reproduzir aqui a listagem do 
programa sem entrar na discussão das instruções de seu 
Assembly. Se algum leitor estiver interessado nesta par- 
te, aconselhamos a leitura do capítulo XI do livro citado. 

Inicialmente vamos discutir o princípio do programa: 
num quadrado de 16x16 posições, nascem, se reprodu- 
zem e morrem células, representadas por um “O” (fig. 
1). 





198553 BYTES 
fig. 1 
Ao começar o programa produz uma primeira geração 
de células, distribuidas ao acaso em seu “habitat” de 
256 posições. A geração seguinte é então desenhada na 
tela obedecendo a certas regras “biológicas”. 
Cada célula tem 8 vizinhas possíveis (fig. 2): 


fig. 2 
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1) As células que tiverem apenas 2 ou 3 vizinhas sobrevi- 
vem e aparecem na geração seguinte. As demais morrem. 


2) Todo espaço vazio que tiver exatamente 3 células vizi- 
nhas, gerará uma nova célula na geração seguinte. 

É interessante observar que o “habitat” é um espaço 
fechado sem limites, ou seja, a última fila embaixo é 
computada como adjacente à primeira fila de cima e à 
última coluna da direita é considerada adjacente à pri- 
meira da esquerda (fig. 3). 


vizinha de A 
Futuro nascimento 


7 |elohojmhz)13/14hsfi6 
EGLTANTAIA O! 
O] Afevorrerá JOJO/ | | 
lide 





















LAI a 
RAN 


broca: 


ala o|s[=|5[o/o |= [oo |» [wo |o || 





fig. 3 
Em matemática, diríamos que o quadrado gerado na 
tela é topologicamente equivalente a uma esfera. Para 
entender melhor a analogia, você deve imaginar um ma- 
pa-mundi (fig. 4), onde o lado direito junta-se a seu lado 
esquerdo. 





fig. 4 


Qualquer outra observação a respeito da “biologia” 
do programa torna-se ineficaz enquanto você não tiver 
| digitado o programa que, em sua forma final, ocupa 


vendo a linha 1, substituindo os pontos por caracteres 
correspondentes aos bytes do programa em linguagem 
de máquina. O RUN apaga as variáveis, mas não as linhas 


| 1053 bytes. 


19 Passo: digite o programa listado na figura 5, to- 
mando o cuidado de entrar com exatamente 142 pontos 
após o REM da linha 1. Por via das dúvidas salve-o em fi- 


do programa. 


ER SS 
LISTRGEM DECIMAL DE “LIFE” 


16514=>239 


165385=>14 


- jo 16515=>1 16586=>0 
ta para não ter que redigitar tudo se faltar energia elétri- 16516=>1 16587?= 2.0 
ca. O programa em BASIC serve para inserir, no lugar de PAS di q a VACA ia 


cada ponto, um valor correspondente ao código de má- 
quina. O primeiro ponto após o REM está no endereço 
16514 da memória, e o último no 16655. Esta inserção 
é feita através do comando POKE. 


FAR E RR 
PROGRAMA 12 


16596=>24 65 
165397=>229 
16598=>235 


à. REM “su naassé é vsamas é dass é 16532=>41 
“cnc cnannnavwans.... uam a 16033- 226 16604. - > Sa 
“es n e... au 15534 =>412 16605 = >ãiá 
“sean... nannno.n..n.un.uu.a.s u 1653%= +42 166826 = >40 
“cnnsannuwennnene numa 16536= >41 16607=>ii 
S SCROLL 16537=>25 16698=>19 


18 PRINT “ENDERECO INICIAL ? * 
e? INPUT M 


3? PRINT M 16534 1=>124 16612=>254 
42 FOR Iz=zM TO 16655 16542=>254 16613-=>18e0 
seo INPUT P 16543=>196 16514=>32 


So PRINT I,P 
oo NEXT I 


16515=>243 
16616=>12 
16617=>24 
165615=>248 
16619=>225 


SEBSEESTE CD LES SCE 16620->121 
16552=>62 16621=>234 
fig. 5 16551=>128 16622=>2 


29 passo: com o programa 1 já digitado, dê um RUN. 
O programa perguntará qual o endereço inicial, e você 
digitará 16514. 


165356=>118 
1655?=>215 
16538=>13 


16623=>56 
16624 =>15 
15525=>254 
16526=>4 

16627=>45 
166258=>11 
16629=>254 


16559=>32 SEU 
. re , , = = > 
A seguir a sucessão de bytes, escritos em forma deci- ps ceras a TER Se +83 


mal, listados na figura 6, deverá ser digitada (apertando- 


16562=>6 


se NEW LINE após cada byte). Esta é a parte mais chata SO E O ds EE dad a a 
da história e aconselhamos leitor a achar um colabora- 16565-;0 165636=:>62 


dor disposto a ditar a sequência e a conferir na tela. 
Lembra-se a Lei de Murphy? 


“Se alguma coisa tem a mais remota chance de dar er- 
rado, fatalmente dará errado”. Consequentemente, em 
algum ponto desta enfadonha sequência você errará,. 
Não entre em pânico. 


Procure o último endereço em que você digitou cor- 
retamente e anote-o. Digite STOP interrompendo o 
programa e dê um RUN. 


Neste momento parece que estou vendo a cara des- 
confiada do leitor: “Tem certeza que é RUN? Não vou 
perder tudo que digitei até agora?” 


Não, não vai perder: o POKE da linha 60 está reescre- 


164571=>1265 
16572=335 
15573=>254d 
1bn74=>5187 
16575=>5D6 
16575=>258 
Z6577=318 
16578=>18 
18579=>16 
16582B=>2465 
16581=>27 
16582=> 
16553=>117 
16584 =>,213 


16637=>150 
15635-=->24 
166539=>2 

166420=>62 
16€41=>125 
166€42=>227 
16643=>115 
16644=>35 
16643=>227 
16649=>55 

16647=>229 
16643=>125 
16649=>167 
166590=>32 

16651=>1289 
16652=>225 
16€53=>225 
16654 =>201 
16655=>0 





fig. 6 
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D 





cá 
Ao ser perguntado qual o endereço inicial digite o su- 
cessivo ao que você anotou e continue inserindo a lista. 


Quando aparecer o código: 
D/90 


Você pode ofertar NEW LINE e verá como a linha 1 mu- 
dou de aspecto: uma parte, inclusive, ficou invisível 
(fig. 7). 


a SAR DA LISTAGEM APOS RODAR 
PROGRAMA 1 


EM LOAD PE <( COPY COPY LIS 
Fr : CP TEMRNDS DD: DDD; GMRND? RETUR 
N CO Sa YBH> PYEENOT ( STOP y 


a dt a “EDIT PARA 


LINHA 


ER SD a 
fig. 7 


Nunca, mas nunca mesmo, traga esta linha 1 para bai- 
xo com o comando EDIT. Se você acompanhar o nosso 
curso de Assembly, um dia verá o porquê. 


39 passo: apague todas as linhas do programa 1 
exceto a número 1, que contém a sequência em lingua- 
gem de máquina. Se você ficar aflito por apagar às cegas, 
digite LIST 2. 


PROGRAMA 2 


SSL. OU) 
RAND 
1 LET MICROHOBBY =USR 16522 
o LET MICROMEGA=USR 16562 
6 GOTO 5 
fig. 8 


Agora digite o programa 2 (fig. 8). Se seu computador 
não tiver SLOW, digite o programa 2 na versão apresen- 
tada na figura 9. 


16 MICROHOBBY 


a 


PROGRAMA 2 P/0UEM TEM MAQUINA 
SEM “SLOUWS 


RAND 

LET MICROHOBBY =USR 16522 
LET MICROMEGA=USR 1656562 
PRUSE 106 

GOTO 5 


"3 UT o Cd 


fig. 9 


A linha 4 chama, através da função USR a subrotina 
localizada na linha REM a partir do endereço 16522. 
Esta subrotina gera aleatoriamente a primeira geração de 
células (fig. 1). A seguir a linha 5 chama a subrotina que 
se inicia no endereço 16562. 

Esta subrotina impõe as “regras biológicas" para pro- 
duzir a geração seguinte. 


49 passo: digite RUN e fique observando o suceder-se 
de gerações. Quem não tem SLOW talvez tenha que ajus- 
tar um pouco o controle VERTICAL de sua TV: a tela 
ficará piscando mas não pulando. 

Se você quiser acompanhar passo a passo a “evolu- 
ção” de seus bichinhos, pode alterar o programa 2 como 
indicado na figura 10. Desta forma, para ver a geração 
seguinte basta pressionar NEW LINE. 


SSL OU 

RAND 

LET MICROHOSBY =USR 16522 
S LET MICROMEGA=USR 16562 
6 INPUT AS 

7 GOTO S 


ENA 


PROGRAMA PASSO-A-PASSO 


fig. 10 


59 passo: dê agora uma recordada sobre o que você 
aprendeu a respeito de Darwin. Veja como a situação 
inicial pode evoluir dando origem a uma extinção total 
ou a “espécies” estáveis. Ocasionalmente obtemos como 
resultado final formas “meta-estáveis”' que oscilam entre 
duas possibilidades. 

Uma coisa muito interessante é se observar o desenro- 
lar da “evolução convergente”. 

O tubarão, o golfinho, e o ictiossauro têm origens 
completamente diferentes: um é peixe, o segundo é ma- 
mífero e o terceiro é um réptil, (fig. 11). Ao se adapta- 
rem, porém, ao meio aquático ficaram submetidos a 
conjuntos similares de regras e acabaram evoluindo para 
formas semelhantes. 

Analogamente, as configurações iniciais, diferentes 
umas das outras pois são geradas ao ACASO, ficam 
submetidas a um conjunto de regras que simulam uma 
PRESSÃO DE EVOLUÇÃO e acabam convergindo para 
formas similares. 

D 


LIVROS PARA TKk, NE Z, CP 


A grande virtude deste programa é o de permitir simu- 
lar, em poucos minutos, um suceder de gerações que di- 


ficilmente poderemos observar na prática. Para reiniciar VRINTA JOGOS 


a observação digite BREAK e a seguir RUN. 


INCLUINDO PROGRAMAS EM CÓDIGO LIS 
TADOS POR IMPRESSORA 


JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE, PAREDÃO, 
DEMOLIDOR, VELHA, [ASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MÁGICO, SENHA, BAN 
CO IMÓBILIÁRIO, BOMBARDEIO, SOM 
POR SOFTWARE, ETC.... 

LANÇAMENTO CR$ 4.000,00 


APLICAÇÕES SERIAS 


FOLHA DE PAGAMENTO, BALANCETE, CON 
TAS A RECEBER, A PAGAR, CORREÇÃO 
MONETÁRIA DAS CONTAS DO BALANÇO, 
CORREÇÃO DAS CONTRIBUIÇÕES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCÁRIA, TABELA PRICE, ESTA- 
TÍSTICA, CORREÇÃO DE PROVAS, EDITOR 
DE TEXTOS,RAM TOPER , SUB-ROTINAS 
EM CACSSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES, ECONOMIZAN 
DO MEMÓRIA, ETC... ETC... 

69 passo: para salvar o programa em fita você tem 3 CR$ 4.800,00 


caminhos: 
a) Digitar SAVE "LIFE" normalmente 


Db) Acrescentar as linhas: 45 PROGRAMAS 





10 SAVE “LIFE” ARQUIVOS, ESTOQUE, PLANO CONTÁBIL , 
11 RUN AGENDA TELEFÔNICA, INVASORES, APAGUE 
a A 
Eta dad aa TRILHA, CAÇA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS, TABUADAS, 
GOTO 10 CONVERSÃO DE COORDENADAS, MÉDIA, FI 


BONACCI, PROGRESSÃO, BIORRÍTMO , RE 


c) Se você tiver um TK85, acrescente as linhas: NUMERADOR DE LINHAS EM CÓDIGO, ETC. 


10 LET LIFE = USR 8405 
11 RUN 72 EDIÇÃO Cr$ 4.000,00 


Neste caso, ao digitar: 


MICRON 
GOTO 10 au Q ed À + eia Ç pingo MA LIDA. , q 


191 





você estará gravando o programa em HIGH SPEED. 
O 
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bi massa 





ARQUIVO 


Este programa foi adaptado a partir de um programa 
publicado em março na revista Microcomputing, sendo 
o original de autoria de Russel King. 


E um programa inteiramente em BASIC que compen- 
sa sua lentidão com uma grande elasticidade. Como o 
programa é muito extenso (9800 bytes), aconselhamos 
o leitor a gravar a listagem em fita cada 5O ou 60 linhas: 
se faltar energia elétrica nem todo o trabalho de digita- 
cdo estará perdido. Esta técnica tem a vantatem adicio- 
nal de permitir uma “descansadinha”' enquanto o pro- 
grama incompleto está sendo gravado. 


Quando o programa estiver completo, é conveniente 
gravá-lo algumas vezes (isto pode ser feito automatica- 
mente: veja dicas na página 29 ). 


Ao rodar o programa o leitor deve criar o hábito de 
digitar sempre GOTO 1 e nunca RUN, para não perder 
os dados a serem inseridos posteriormente. A primeira 
coisa que vemos é um menu inicial que caracteriza O 
computador empregado, dimensionando conveniente- 
mente a memória (fig. 1). 








240. AR = Sid Ge ado! RSRS ad ema o ode E — ad? pes 
Drs % ARM ? e e 


Di dia 


SEU COMPUTADOR EP. 


CeacstAKSS (tIOK) 
Sec XSI 1oOk) 
L.ccoT IMEX (tIGK) 
SasnCê 2900 

O. «. « NEZOBOO (IOK) 
Paz. TRKS2/83 (ESKI 
Seas. 1NKSS 1t45K) 
Ga... 1KES (45K5 


[MENU INICIAL) 





Pt 


fig. 1 
Uma vez digitada a opção correta, passamos ao menu 
principal (fig. 2). Quando usamos o programa pela pri- 
meira vez devemos começar pela opção 8: 
8... MONTAR NOVO FICHÁRIO 
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Programa do Mês 







S AS 
7 


ê 


COMANDOS DE ARQUIVO MICROHOBBY 
À. « INSERIR REGISTROS 
2. «TROCAR REGISTROS 
Se «APAGAR REGISTROS 
4. «LISTAR TODOS OS REGISTROS 
3. «BUSCA DE UM REGISTRO 
5 »-.- ORDENAR REGISTROS 
? «« GRAVAR REGISTROS 
S . «MONTAR NOVO FICHARIO 
3. « LISTAR CAMPOS 






aúdio VOCE DESEJA USAR? 





fig. 2 


O programa pergunta qual o nome do fichário: este 
nome se transforma também no nome do programa, 
quando usarmos a opção 7: 


4 


7... GRAVAR REGISTROS 


o argumento do SAVE será escolhido nesta ocasião. 
Vamos supor que queiramos montar uma agenda de 
telefones de amigos. Digitamos, então: 


AGENDA AMIGOS 


O programa pergunta então quantos campos terá cada 
ficha. Como se trata de uma agenda de telefones bastam 
> 





dois. Dependendo da utilização do fichário, uma quanti- 
dade maior de campos poderá ser escolhida. Obviamente 
quanto mais campos ... menos fichas. 


A seguir devemos definir quantos caracteres para o tí- 
tulo de cada campo. Aqui convém ser bem econômico. 
No nosso exemplo vamos escolher três. Isto permite que 
o tamanho máximo de cada campo seja de 28 caracteres: 


NOME DO CAMPO + CONTEUDO DO 
CAMPO = 31 CARACTERES 


O programa pede agora o nome do campo 1. Vamos 
digitar: 


NOM (NOME DO AMIGO) 


Devemos agora responder quantos caracteres o campo 
NOM deve ter. Como se trata de uma agenda de amigos, 
bastam uns 12 caracteres (não precisamos do nome com- 
pleto). 


Repetimos a operação para o campo 2: 


Nome do campo 2: TEL (TELEFONE) 
Comprimento: 7 


Somos informados que a memória comporta 330 re- 
gistros (com 16 K), e nos é perguntado quanto deseja- 
mos (fig. 3). 


QUAL ooo di e Norte DomacHARIO ” 


DESEJA QUANTOS CAMPOS“ 
QUANTOS CARACTERES PARA O TITULO 
DE CRDR CAMPO ? (QB A IS1& 

O TAMBNHO MAXIMO DE CADA campo 
E” DE 23 CARACTERES 


CAMPO 3:NOM 
COMPRIMENTO DO CaMPO(I-2DB)- IB 


CAMPO 2: TEL 
COMPRIMENTO DO cAaMPú(i-EsS):12 


O NUMERO MAXIMO DE Ro IS 
a 


VALE RPROXIMADAMENTE 
a REGISTROS DESEJA? 


fig. 3 





Apenas para arredondar, vamos escrever 300. O com- 


putador pede então para digitar qualquer tela menos 
BREAK. 


Voltamos então ao menu principal com o fichário já 
“ dimensionado. Esta volta não é muito rápida devido a 
uma peculiaridade do SCROLL do TK (veja DICAS, 
pág. 27). 








Vamos agora inserir alguns registros. Para isto basta 
digitar 1: 


. INSERIR REGISTROS 


O computador, a cada inserção nos pergunta se dese- 
jamos trocar algo ou se desejamos inserir mais registros. 
Todas essas perguntas devem ser respondidas por S ou N 
(Sim ou Não). 


Ao terminar a lista, digite N quando a pergunta for: 
“deseja inserir mais registros?”. Não se preocupe se o 
computador parece sair do ar (mais uma vez esquisitices 
do SCROLL). 


Digamos agora que você queira listar os registros. Bas- 
ta digitar 4: 


4.. LISTAR TODOS OS REGISTROS 


O computador pergunta se queremos a listagem de to- 
dos os campos e se esta deve ser efetuada no vídeo ou na 
impressora. 


A listagem surge na tela como SCROLL e a cada ficha 
pára. Para continuar basta ficar pressionando a tecla C. 
Querendo interromper digite BREAK e GOTO 1000 (e 
tenha paciência com o SCROLL) (fig. 4). 


QUER à LISTAGEM CDE TODOS cAMPOS*” 


NO VIDEO OU NR IMPRESSORA? (UzI) 
DIGITE C PERA CONTINUAR 





po: 


JOSE ANTONIO 
54953577 


BLBERTO 
2572455 


VALERIA 
4523357? 


UTICENTE 
4556734 


NOM: 
Trata s 


NOM : 
TEL: 


NOM : 
TEL: 


NOM: 
TEL : 


fig. 4 


Digamos que seja necessário tirar uma lista na impres- 
sora em ordem alfabética. Devemos, no menu principal 
digitar 6. 


6.. ORDENAR REGISTROS 


Uma vez escolhido o campo a ser ordenado após a 
execução é perguntado se desejamos refazer a ordenação 
segundo outro critério. Digitando N, volta-se ao menu 
principal. Digitamos agora 4 e escolhemos como opção a 
impressora, obtendo, por exemplo, a listagem da fig. q 
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NOM: ALEERTO 
TEL : 2872456 


NOM: DELERMO 
TEL :-2114533 





NOM: JOSE ANTONIO 
TEL :- 5438577 





NOM: MARCIA 
TEL :5S134555 





NOM: MARILDA 
TEL: BSS76SE 





NOM: VALERIA 
TEL: 4523387 





Para trocar algum registro, basta digitar 2: 


2.. TROCAR REGISTROS 


Sabendo o número da ficha a ser trocada podemos al- 
terar qualquer um de seus campos (fig. 6): 


ENTRE CoM O NUMERO DO REGISTRO 
A SER TROCADO 


NOM: DELERMO 
IRAS TROCAR” 


TEL: 2214533 


IRA? TROCAR? 
TEL :21145535 


REGISTRO NUMERO 2 ACABADO 
w se TROCAR OUTRO REGISTRO? 


fig. 6 
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Se não soubermos o número, entra em funcionamen- 
to a mesma rotina de busca do item 5: 





9 .. BUSCAR DE UM REGISTRO 


Digitando S para o campo NOM a busca começa. Ao 
invés de digitar o conteúdo completo do nome, vamos 
digitar apenas V (no fichário do nosso exemplo temos 
dois nomes que começam com V: Vicente e Valéria). 
O programa busca os dois (fig. 7). 


PRESSIONE “SS” QUANDO VOCE 
TIVER O campo 

NOM 2 

ENTRE COM O CONTEUDO DESTE CAMPO 
REGISTRO Numero 6 

NOM: VALERIA 

JEL: 4523387 

DESEJAR CONTINUAR A BUSCA? 
REGISTRO NUMERO 7 

NOM: VICENTE 

TEL :4256734 

DESF sB CONTINUAR À BUSCA? 

BUSCAR COMPLETA 


E ante FAZER OUTRA BUSCA? 
fig. 7 
O campo 3: 


3.. APAGAR REGISTROS 


tem funcionamento análogo. Por prudência, antes de 
apagar O programa, pede uma confirmação (fig. 8). 


VOCE PRECISA ENTRAR COM O NUMERO 
DO REGISTRO AR SER APAGADO. 

VOCE DESEJA FAZER UMA PESQUISA 
SOBRE O NUMERO DOS REGISTROS?” 


ENTRE COM O NUMERO DO REGIATRO 
à SER APAGADO 

NOM: VICENTE 

TEt : 4556734 

É ini ESTE REGISTRO? 


fig. 8 


O campo 9 mostra uma ficha: vazia apenas para lem- 
brar qual o formato do arquivo que está sendo rodado 
(fig. 9). 


LISTAGEM DOS CAMPOS DE 





PRESSIONE GUGLQUER TECLA 
MENOS “BREAK 


fig. 9 


Finalmente, optando por 7 o leitor poderá gravar em 
fita os registros efetuados até então. Se o computador 
D 


for um TK85 poderemos optar por velocidade normal 


ou HIGH-SPEED. 7.0 Tr Adr sia das 42538 
Lembre-se, porém, de uma coisa importantíssima. Se j4os FAST M 605 4928 
o programa for interrompido por algum erro jamais digi- 1416 GoTo 1918 


te RUN, sob pena de perder todo o fichário. O programa 420 REM INSERIR REGISTROS 
Ed 14390 LET N=N+1 
deve ser sempre reiniciado com um GOTO 1000. 1440 SCROLL 
14536 PRINT “REGISTRO NUMERO “i:;nN 
1468 IF MN«x=M THEN GcoTo 1518 


1474 LET N= 
EEE E CURE Rice EAR TE cos 14890 SCROLL 






FIICROSSE AS ="“TYSS 1484 FOR I=i1 TO 42 
9824 REM ESCOLHA DO COMPUTADOR 1490 PRINT AT 121,2;“FIM DOS REGI 
921 PRINT “SEU COMPUTADOR Ef ."; STROS“ 
TAB 2;'"1...TK82-C (216K)";TARB 2;” 41491 PRINT AT 44,2;"* 
es enTKOS (36KI“:;TABD 253,7 ET o da 
1 (IGKI"“;TRE D;"4...TIMEX (iG) NEXT I 
AB 2;"S,.:CP 206"; TAB 2;"S..eN 14936 FAST 
EZ80B0E (16K) “;TRE 2;"7. «.«.TKSD+BS 1528 GOTO 17086 
(G4K)";TAB 2;'"8B...TKBS (1GKI “;TA 215180 FOR I=1í TO N2 
BS 2D;"“9D. «e. TKES (4SkK?” 15208 SCROLL 
910 LET HI=e 1530 PRINT N&( 
315 INPUT AQ 1540 INPUT TE CN. bei, Er TO Dt(I,e) 


9220 LET A=INT & ) 
o IF A<i OR Ara THEN GDOSUE 68 Era PRINT I$&(N,DII,3) TO D(I,E) 


49 IF AR>0 AND A<Iig THEN GOTO S 15€98 SCROLL 


3s 1570 NEXT T 
928 coTO ada 15880 SCROLL 
955 LET MEMO0-=-392888 1598 PRINT “QUER TROCAR ALGUMA CS 
968 IF A<x>7 AND A<>9 THEN LET HM JISA?": 
EMO=6306 1500 INPUT Ag 
978 IF A=8 OR A=9 THEN LET HI=1 1619 SCROLL 
12926 REM MENU 16228 IF A$g="5S" THEN GOTO 15416 
1605 FAST 163J28 SCROLL 
1212 CLS 16490 PRINT “REGISTRO “;N;"” INSER 
13938 PRINT TAB 2; "COMANDOS DO AR IDO" 
QUIVO MICROHOBEBY* 1652 SCROLL 
iBáo PRINT 1662 PRINT “DESEJA INSERIR MAIS 
19592 PRINT “i1.. INSERIR REGISTROS REGISTROS? "; 
E 1679 INPUT Ag 
19690 PRINT 16398 SCROLL 
1070 PRINT “2..TROCAR REGISTROS" 1698 IF R$=“5“º THEN GcoTo 1428 
1280 PRINT 172084 RETURN 
12098 PRINT “3..APAGAR REGISTROS" 1718 REM TROCAR RESISTRO 
110660 PRINT 17280 SCROLL 
1118 PRINT “4..LISTAR TODOS O5 R 17380 SCROLL 
EGISTROS 1748 PRINT “PARA TROCAR UM REGIS 
1128 PRINT TRO VOCE" 


PRINT “53... BUSCA DE UM REGIS 1758 5CROLL 


1760 PRINT -. PRECISA ENTRAR com o 
PRINT SEL NUMERO” 
PRINT “O. . ORDENAR REGISTROS 1778 SCROLL 


1782 PRINT “ VOCE DESEVA PESOQUIS 


PRINT aR SOBRE” 
PRINT “7. . GRAVAR REGISTROS" 1798 SCROLL 
PRINT 152080 PRINT “O NUMERO DO REGISTRO 


PRINT “S..MONTAR NOVO FICHA cy 
18190 INPUT is 


PRINT o 15828 SCROL 

PRINT "“9..LISTAR CAMPOS" 1650 IF AF="S" THEN GOSUEB 3300 

PRINT 1846 CLS 

PRINT 1550 SCROLL 

PRINT “QUAL VOCE DESEJA USA 1566 PRINT “ENTRE COM O NUMERO D 
O REGISTRO" 

INPUT 1878 SCROLL 

LET A=INT A 1889 PRINT “A SER TROCADO” 


IF A<i OR A>9 THEN GCOSUB 60 aco a rp 
IF R>0 AND A<io THEN GOTO 1 1918 LET A=INT A 


CLS 1932 IF 8>0 AND A<=N THEN GcoTo 1 
8 GOTO 19360 968 
CLS 19420 PRINT “NUMERO DE REGISTRO 
IF A=1i THEN cosus 14290 RO UALIDO“ 
IF A=2 THEN cOSUB 1718 1958 GOTO 2110 
IF A=3 THEN COSUB 2170 1969 FOR I=i TO Ni 
IF A=4 THEN GOSUE 2670 1378 SCROLL 
IF R=5 THEN GOSUB 3300 1980 PRINT N&(I)I;C:"; ISiIA,D(CI,1) 
IF A=6 THEN COSUB 39838 TO D(I,2)) 
IF A=7 THEN GOSUB 4132 1998 SCROLL 
. > 
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2200 PRINT TAB 18;" IRA* TROCAR?“ 
2218 INPUT As 

22PQ SCROLL 

20658 IF A$<>"S" THEN GOTO 2e0se 
gas PRINT NSCIS;VOS; 


2258 INPUT IS(A,D(I,1) TO DII,2) 
2060 PRINT IS(R.DEI,1) TO DtI,2) 
2B7B SCROLL 

2280 NEXT I 

2999 SCROLL 

2188 PRINT “REGISTRO NUMERD ";A; 
21 96PEEEO, 

2428 PRINT “DESEJA TROCAR OUTRO 
REGISTRO?" 

21 INPUT AS 

2148 SCROL 

5150 JE AE="S“ THEN GOTO 1710 
2160 RETURN 

2170 REM APAGAR UM REGISTRO 


IF N>0 THEN GOTO 2220 

SCROLL 

PRINT “NENHUM REGISTRO NO F 
ICHARIO* 
210 GUTO 2518 

SE2êa SCROLL 

22528 PRINT “VOCE PRECISA ENTRAR 
LOM O NUMERO” 

2248 SCROLL 

2250 PRINT “DO REGISTRO A SER GD 

AGRDO.“ 

226% SCROLL 

278 PRINT 

q PESQUISA” 
2250 SCROLL 
298 PRINT, . SOBRE O 
EGISTROS 

3389 INGUT gi 

2318 SCROL 

23200 IF Ag="s" THEN COSUB 53989 
2336 SCROLL 

2340 PRINT “ENTRE Com O NUMERO D 
O RESISTRO * 

23524 SCROLL 


“"UCCE DESEJA FAZER UM 


NUMERO DOS PR 


2360 PRINT “R SER APAGADO” 

238 INPUT R 

23880 LET A=INT A 

ua IF A>9 QND BA<=N THEN GOTO 2 
cido SCROLL 

241 RINT “NUMERO DE REGISTRO N 


4.28 GOTO 2€18 


2430 FOR I=1 TO Nã 
2440 SCROLL 
2450 PRINT N&ILI);U.C;ISIR,DIITI,2S 


TO D(I,2)) 

NEXT I 

SCROLL 

PRINT 
INPUT AR& 

2500 IF Ag='5" THEN GOTO 25260 

GoTO 2610 

IF A=N hei GoTo 2588 

FOR I-=A N-1 

LT IE (II=SISLT4) 


NEXT T 
LET N=N-à 


“RPRGAR ESTE REGISTRO 
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ICROLL 
E “RESISTRO APAGADO” 


"MAIS ALGUM REGISTRO 
APAGAR?" 


Er na o THEN GOTO 2188 
RETUR 


REM LISTAGEM DOS REGISTROS 
liam 


=N 1 
IF fR=1 THEN GOTO 
OCROLEL 
“PRESSIONE 


ear a 


PR INT . da .. 


PRE: 


“DS campos" 


<KI,I) TO DIB 
320984 NEXT K 


SCROLL 
PRINT “OUVE VOCE DESEJA LIST 


LET J=ê 

SCROLL 

FOR I=1 TO Nº 
SCROLL 

PRINT N$E(CI);" 2"; 


“ THEN GOTO 29369 


“NO VIDEO OU NA IMPRE 


THEN GOTO 31398 


E 
INT 


SCROLL 
PRINT TAB S;Lg& 
SCROLL 
FOR I=1 
K=1 7 


O 
PRINT Ng (Ri 
K) 


"DIGITE £ PARA CONTIN 


a 
ei 
x “si IG(I,DIA 
+ 


E E E 
213 


z 


SCROLL 


IF INKEYS<>“C“ THEN GOTO 514 


REXT I 
FAST 

COTO 3250 
CLS 





3132 LPRINT TRB S;Lg 
3135 LPRINT 
O N 
Odu 
2202 LPRINT N$S(B(K)1; ;31I$(I,DI 
A(kK),1) TO D(A(K),2) 
3212 NEXT K 
SsecB LPRINT 
SED PRINT o RA 
vese NEXT TI 
325€ SCROLL 
5260 PRINT “OUTRA LISTAGEM? "; 
S278 INPUT Ag 


5289 IF ae THEN GOTO 2678 igga PRINT “OCRDENACAO CANCELADA” 


3298 RETUR 4010 Goro 4168 
ISCR 4 REGISTRO 
ses Sepobbaca Deu 4050 FOR R=3 8 Noº 
se e. s. ss... Qua H j — 

DO VOCÊ PR AS e N 4060 IF Ig(J,DiI,1) TO D(I,2IJ<= 
5330 SCROL ISIK,DII, 4) TO D(I,2)1 THEN GOTO 
3349 PRINT “TIVER O campo” 

235350 FOR I=i TO N4 larva LET Bg=Iis id? 

336584 SCROLL Ara LET IEtt)=TI$(Kk) 

3378 PRINT N$t7);0 E dad dd7e LET IBtkI =B$ 

3380 INPUT Ag 4873 NEXT K 

3390 IF Ag&="5" THEN GOTO 3449 4074 NEXT JU 

3420 NEXT JJ 4276 SCROLL 
3416 SCROLL póddra ata “ORDENAÇÃO COMPLETA" 
3428 PRINT “SELECAO CANCELADA“ - À 

. 3434 GOTO 3788 id i2o9%B PRINT “CRDENAR COM BOSE EM 

sãaiaBS SCROLL OUTRO CANPO?" 

3450 PRINT “ENTRE COM O CONTEUDO 4100 INPUT Ag 

DESTE campo” 41180 &SGCROLL 

3462 INPUT Ag “120 IF eo THEN GOTO 38538 
3470 LET A=LEN As 4130 RETUR 

34824 IF A<i THEN GOTO 3450 4132 REM ei PROGRANA 

3490 IF A<c=(D(I,2)-DiI,2)+1) THE 4134 IF HI=8 THEN GOTO 4146 

N GOTO 352 4135 PRINT "PREFERE GRAVAR EM VE 
3500 LET G=iDII,2)-D(I,1)+7) tL OCIDADE HORMBL (MN) OU HIGH-S 
3518 LET AR$=A$gti TO 9) DEED? LM)" 

SS5204 LET R=A-i+DItI,i) 4137 INPUT C& 

35530 LET F-8 > 
3S4dQ LET D=3 
3560 FOR J=i TON 
3570 IF Ag=I&(J,DtI,1) TO AR) THE 
N GOSLUB 366 


THEN GOTO 3680 


Ud 
S628 med SMPSASES COMPLETAS 
3540 IF F=-=D THEN PRINT “REGISTRO 
Nao acHADO“ 


3550 GOTO 37586 
S6S0 SCROLL 


858 PRINT cocorarmo numemo “su | BASIC & LINGUAGEM 


698 SCROLL 


” 
9700 PRINT NSIKIST:0; IS6U,DIK, 1) DE MAQUINA 


37 K eme Ú 
3290 PRINT “DESEJA CONTINUAR A E NIVEL 2 | CRIANÇAS jonfinciação 
USCAS" 


' B$. ADULTOS E 
3750 IF aja TREN LET 9=1 NÍVEL 1 |ADOLESCENTES!20h| INICIAÇÃO 
57?7B RETURN 


3780 SCROLL 
- ADULTOS E APROF. EM APLICAÇÕES 
Sena NINT “DESESA FAZER OUTRA É | nívEL 2A| ADOLESCENTES|20h| ADMINISTRATIVAS 





3816 Te As UE THEN GOTD 3308 

E 3829 RETURN E E ADOLESCENTES| | APLICAÇÕES EM 
3838 REM ORDEM DOS REGISTROS NÍVEL 2B| JOGOS 20h| JOGOS 

3856 PRINT ESTAR ROTINA ORDENA 

Ee [o : 
LFANUMERICO - ULTOS E LINGUAGEM DE MÁQUINA 
3866 SCROLL NÍVEL 3 ADOLESCENTES ASSEMBLY Z80 
Se, PRINT “MENTE COM BARSE NUM C 
358806 SCROLL ADULTOS E APROF. DE LINGUAGEM 
J290 PRINT “PRESSIONE “cs PARAR NÍVEL 4 | ADOLESCENTES DE MÁQUINA 
3910 PRINT pr 
+ QUE IR SERVIR DE 5 Núcleo 
8 POR Ts TO Ná orientação 
3849 SCROLL a S 
Sosa ao A ia E); ' estudos Informações e inscrições: 
3970 IF AR$="5" THEN GOTO 49820 Av. Brig. Faria Lima, 1.451 - 3º - Cj. 31 
3980 NEXT JI Tel.: 81 - CEP 01451 - São Paulo-SP 
SCROLL 
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S 


a 


no 
3 
á. 
o 
H 
Es 
4 
4 
o 
S 


Eyes Aya 2 


4a il 
41 
42 
SI 
a 

4 Ii 
41 
as 
41 
qi 
al 
á 

p 


2 
O 


4178 
2102 
A G 
4194 
4120202 


ECLA” 


4378 
+388. 
13) 


4398 
44830 
4418 
At 15 
4428 


4530 
41548 


4550 





A C&=UNV THEN GOTO 4146 


“COM O GRAVADOR EM PL 
GRAUVBR DIGITE À TECL. 


o 
M 
(1 


INPUT Q& 
IF B$="Hº 


GOTO IRA 
Ci Ss 

SCROLL 
PRINT 


THEN LET H=USR Ed 


“PONHA O GRAVADOR EM 


SICARO DE” 


SCROLL 


PRINT “GRARAUBR. PARA COMECAR 


RRURBR” 


SCROLL 
PRINT "PRESSIONE GUALQGUER T 


PRUSE 39090 

SCROLL 

SRQUE Lã 

SÓÚTO 1940 

REM MONTAR FICHARIO 
SCROLL 


mes fo A “QUAL SERRA" O NOME DO 


E 
LT LEO) = CODE ORIIO) + 


NEXT Q 
SCROLL 
PRINT “FICHARIO “21.8 
SCROLL 

PRINT “DESEJA QUANTOS CAMPO 


INPUT Nã 
PRINT Nã 


15 
a  PINEE CARACTERES P 


ROLL 
PRINT “DE CRDA CAMPO * (8 R 


INPUT K 

4 K>253 THEN LET K=15 
IF K<2 THEN LET kK=8 
PRINT kK 


SCROLL 
LET L=31-kK 

PRINT “O TAMANHO MAXIMO DE 
CAMPO" 
SCROLL. 
FRINT “EP 


DIM e 
É 


DE 


(NI,kK? 
NI) 
NI1I,.2S) 


“st; CARACTER 


DIM & 
DIM D 
SCROLL. 
SCROLL 


SCROLL 


PRINT “E O COMPRIMENTO DO €C 


i. 
FOR I=i TONI 
SCROLL 
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“ENTRE COM DESCRICOES 





45924 LET RBé&='* 
4022 PRINT “CAMPO “;I;":"; 
4616 INPUT Ag 

4628 LET AE=R$E+ 


4630 LET N&tI) =R& 
4630 PRINT N&(T) 
Z642 SCROLL 
41554 PRINT. 
(E Ls 
10568 INPUT ê ' 
2672 IF A<i THEN LET A=1 

4680 IF A>L THEN LET A=L 


“COMPRIMENTO DO CAMPO 


4690 PRINT qa 

4700 LET DíiI,1ã) =“ 
AZiS LET J=J+ã 

4720 LET DiI,Z?!=!-1 


4.738 SCROLL 
742 NEXT TI 
4758 LET J=u-l 
702 LET N=Q 
"0 LET M=INT 
211 2d) 

4782 SCROLL 
41798 PRINT 
EGISTROS *" 
4304 SCROLL 
Ea PRINT 


3 
4322 SCROLL 
435538 PRINT “GURNTOS REGISTROS UO 
CE DESEJA” 
INPUT A 
LET A=INT à 
IF A>6 E ON THEN LET M=8 


( (MEMO -NI*(SI-L+ã 
“O NUMERO MAXIMO DE E 


“URLE APROXIMADAMENTE 


“DIGITE GOOUER TECLA(M 
BREAK 


PRUSE 32228 

RETURN 

Arado LISTAGEM DOS CAMPOS 
> 


L. 
PRINT “LISTAGEM DOS CAMPOS 
SCROLL 


PRINT 


cia E i TO Nã 
PRINT CNS (IIS) 
NEXT 

SCROLL 

SCROLL 


PRINT ES 


ETR TS TESTE 
20158 SCROLL 
Ceia PRINT “PRESSIONE QUALQUER T 


L. 
“MENOS “ 
SCROLL 
FPRUSE 30828 
RETURN 
7 0P 
SL Ot 
FOR I=1 TO i2Z 
Ena AT 2,2; “POR FAVOR ENT 


PRINT RAT &,e; "POR FAVOR ENT 


=" BREAK .. te me 


E 


a MR Ti j 
: = % AE 


A FITA DO MÊS 


1 q 


1 cs cais fa 
Simulador de Vôo 


A fita que estamos oferecendo de brinde para os nos: 
sos assinantes contém um jogo bastante realista de 16 K 
intitulado “SIMULADOR DE VÔO”. A adaptação feita 
para o Brasil de um programa originalmente inglês criou 
um pequeno grilo, felizmente já sanado, para o TK85 
(veja DICAS do nº 2). 


Inicialmente o programa pergunta se queremos o vôo 
completo ou apenas a fase de aterrisagem. Aconselha- 
mos os “manicacas” a se limitarem inicialmente à ater- 
risagem. Por maior motivo, ao serem questionados se de: 


sejam ou não os efeitos do vento, aconselhamos respon- 
der “Não”. 


.- « " 
b - 

ng 

a . 

e 

y 
a a 
“o 
4 


—- 
= 





ÃO começar O programa, inicialmente temos, uma vi- 
são do interior da cabine. Pelo parabrisa vemos a linha 
do horizonte. Puxando o manche para trás (com 
joystick, ou com a tecla 6) vemos o horizonte descer, 
pois o nariz do avião está apontando para cima. 


Da mesma forma, digitando 7 fazemos o nariz baixar 
e vemos o horizonte subindo. O nível do horizonte está 
indicado num mostrador à esquerda. 


Cuidado, pois este instrumento tem um pouco de inér- 
cia. Usando as teclas 5 e 7 fazemos o avião se inclinar 
para esquerda e para a direita. Obviamente veremos o 
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horizonte se inclinar ao contrário, pois o referencial está 
fixo na cabine e não na Terra. 

Abaixo do mostrador de horizonte temos o indicador 
de combustível, cuja indicação não é crítica quando es- 
colhemos apenas a fase de aterrisagem, mas que se torna 
um grande fator de angústia quando o vôo é longo e es- 
tamos perdidos. 

À direita temos o indicador do regime de rotação do 
motor. Digitando P (de forma contínua, pois todos os 
controles são do tipo INKEY$) a rotação aumenta, 
aumentando a velocidade indicada logo à esquerda em 
KM/H e, obviamente, o consumo de combustível. Digi- 
tando O o regime diminui: (cuidado para não perder a 
sustentação). 

O altímetro indica a altura em metros e sua marcação 
pode ser alterada levantando ou baixando o nariz do 
avião. Cuidado que, ao perder altura, o avião ganha ve- 
locidade. 

Digitando F o flap é abaixado, aumentando a susten- 
tação em baixa velocidade (aterrisagem) e D ele é retira- 
do. Dar flap em alta velocidade produz desastres. 

Para abaixar ou levantar o trem de aterrisagem basta 
digitar G. Antes de aterrisar verifique o mostrador do 
trem ao lado do de flap, para não correr o risco de ras- 
par a barriga na pista. 

No lugar de honra do painel temos a bússola que mos- 
tra o rumo do avião. À direita da bússola temos o rádio- 
goniômetro que indica o rumo (em graus) e a distância 
(em KMSJaté o radiofarol do aeroporto. Este rumo é 
mostrado também de forma analógica pelo mostrador 
circular com modelo de avião. 
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Se digitarmos M (mapa), a cabine desaparece do vídeo 
e em seu lugar vemos o mapa da região. No alto à es- 
querda continuamos tendo acesso à leitura do rumo do 
avião. O avião e o rádio-farol são representados como 
pontos piscando. Querendo fixar o sistema de navega- 
ção em um rádio-farol situado em outra cidade basta di- 
gitar B até que a cidade escolhida fique piscando. Em 
vôos longos isto pode ajudar. 

Digitando V novamente voltamos para a cabine e ve- 
mos no rádio goniômetro o rumo e a distância em rela- 
ção ao novo rádio-farol fixado. 

Se o avião bater contra o solo, ou contra os morros 
indicados no mapa, haverá um quebra-quebra e veremos 
o relatório do acidente para nos orientar nas próximas 
tentativas. 

A fase final da aterrisagem é a mais emocionante e 
lembra os velhos tempos em que a maior preocupação 
do piloto era de não deixar o cachecol embaraçar na hé- 
lice. 

Com o vídeo mostrando a cabine, digitar V: se a dis- 
tância até o aeroporto for suficientemente pequena, ele 
aparecerá em perspectiva e a habilidade do piloto não 
dependerá mais-tanto dos instrumentos. Apesar disto, 
ainda são visíveis o centralizador de descida, o velocíme- 
tro e o altímetro. 

Se nesse momento você lembrar do trem de aterrisa- 
gem, é só digitar V novamente que o painel da cabine 
volta a aparecer. 

Em pouco tempo você se tornará um hábil piloto, 
tanto visual quando em vôo por instrumentos. 


Õ 





Dicos 


| Apagando a lela 


» Quando montamos uma tela com muitas linhas usan- 
do o SCROLL, nos defrontamos normalmente com um 
problema: apagar a tela com um CLS é uma tarefa que 
pode ser muito demorada. Quem já brincou com o simu- 
lador de vôo já sentiu isso na mensagem final: DIGITE 
RUN PARA VOAR NOVAMENTE. Digitando RUN (e 
NEW LINE) deve se esperar um bocado para que a tela 
se apague totalmente e o jogo reinicie. 

Vamos então fazer algumas experiências: 

Digite inicialmente o programa listado na fig. 1 (A$ 
tem 32 o's). Com o computador no modo SLOW rode o 
programa. 


119 LET 2%='0000000000000000000 
0000000000005" 
122 FOR 


I=2 TO 6 
SCROLL 
SCROLL 
SCROLL 
PRINT AR$5 
1780 NEXT I 
CLS 
coTo 1863 
fig. 1 
Note quanto tempo demora o CLS para apagar a tela. 
Tente dar um BREAK enquanto a tela está sendo apa- 
gada: inútil. E necessário esperar que a tarefa se com- 
plete. 
Como evitar isso? Uma solução é colocar o compu- 
tador em SLOW enquanto a tela está sendo escrita, mas 
| em FAST quando está sendo apagada. 
Acrescente as linhas: 


o 100 SLOW 


180 FAST 








ao seu programa, de maneira que ele fique como na 
fig. 2. 


188 SLOU 
118 LET Rjã='0600000000000000000 
0000000000000".. 

128 FOR I=8 TO 6 

SCROLL 

SCROLL 

SCROLL 

PRINT Ag 

170 NEXT I 

FAST 

198 CLS 

GOTO 188 





| Rode o programa assim alterado e veja como as coisas 
| melhoram um pouco. 
<< 


— 





Mas, será que não existe uma maneira mais elegante? 

Podemos utilizar uma subrotina em linguagem de má: 
quina, para encher a tela de espaços vazios. 

Uma subrotina em linguagem de máquina é uma se- 
quência de bytes que deve ser inseridas em algum lugar 
da memória e é chamada pela função USR. Toda subro- 
tina desse tipo tem uma última instrução análoga ao 
RETURN, que faz voltar ao programa em BASIC. No 
curso de ASSEMBLY que estamos publicando discutem- 
se as melhores localizações para estas subrotinas. Por en- 
quanto vamos localizá-la numa linha REM do programa 
em BASIC. 

Digite então: 

1 REM... (3 pontos) 

Sem apagar O programinha anterior acrescente as li- 

nhas: 


10 FOR | = 16509 TO 16517 
20 PRINT |, PEEK | 

30 NEXT | 

40 STOP 


e agora digite RUN. 

A função PEEK lê o byte contido no endereço de seu 
argumento. Desta forma o programinha em questão está 
lendo os bytes contidos nos endereços de 16509 a 
16517. 

O endereço 16509, no TK, contém o primeiro byte 
do programa em BASIC. Pegue o manual do TK (Apên- 
dice A) e veja o que podemos deduzir do que mostra 
a tela (fig. 3). 


pás 
mM 
mM 
[mm 
tu 
Pá Mo My TO O Co 6 
nas 


pô 
pá 
a 


fig. 3 

Os endereços 16509 e 16510 contém os bytes que in- 
dicam o número da linha. No nosso caso trata-se da li- 

nha 01. 
Os endereços 16512 e 16511 (nesta ordem) mostram 
o comprimento da linha (no nosso caso 05 bytes, in- 
cluindo um byte final que indica que a linha acabou. 
O endereço 16513 contém o byte 234. No apêndice 
A vemos que ele corresponde ao REM. A seguir temos 
> 

MICROHOBBY 27 


os 3 pontos 27, 27 e 27 e finalmente o byte que indica 
NEW LINE, ou seja, esta linha de programa acabou 


(fig. 4). 


ENDEREÇO 
16509 
16510 
16511 


fig. 4 


Como podemos observar, o primeiro byte livre após o 
REM é o de endereço 16514, que por enquanto, contém 
o byte 27 (ponto). 

Se quisermos alterar seu conteúdo basta usar a instru- 
ção POKE: 


DIGITE 








POKE 16514, 201 


e liste o programa novamente. 
Olhe para a linha 1 (fig. 5). 


1 REH TAN 
12 FOR I=16509 TO 16517 
eo PRINT No 


O primeiro dos três pontos, justamente o que estava 
no endereço 16514, foi substituído por TAN, que é jus- 
tamente o caracter 201. Rode o programa e você verá 
esta substituição (fig. 6). 


1653589 
16519 
16511 
16512 
16513 
16514 
16515 
16516 
16517 


fig. 6 
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LI 
118 LET Aj='0000000000000000000 
9000000000000"7' 

1280 FOR I-0 TO GS 
isS8 SCROLL 

1490 SCROLL. 

156 SCROLL 

169 PRINT AS 

178 NEXT 
186 FAST 


CLS 
2880 GOTO 169 


Guesa 


281 
27 
2? 
118 


SIGNIFICADO 


5 bytes 


Vamos agora apagar as linhas 1, 10, 20, 30, 40, 100 e 
180, voltando, por tanto, ao programa da figura 1. 

Como a subrotina que vamos introduzir tem 21 bytes, 
vamos digitar uma linha 1 REM seguida de 21 pontos 
para reservar 21 endereços na memória. 

A seguir, para não ter que fazer 21 POKE's seguidos 
vamos digitar esta pequena rotina: 


10 FOR | = 16514 TO 16514 + 20 
20 PRINT |, 

30 INPUT P 

40 PRINT P 

50 POKE |, P 

60 NEXT | 

70 STOP 


e rode-a com o computador em SLOW. Entre com os 
bytes listados na figura 7. Liste o programa e veja como 
ficou estranha a linha 1 REM (fig. 8). 


16514 sa 
15515 12 
153165 O4 
15517? 1 
16518 213 
16519 o 
16528 35 
18523 126 
168522 asda 
1L6S23 115 
56324 a] 
16525 

16526 so 
1652? 

16525 1419 
165329 J X 
16538 120 
16531 177 
16532 os 
15533 24 
16534 ad i 
fig. / 


1 REM E£RNDPSTR$ "7 ="“2Nicos 
12 FOR 1=1651d4 TO 16514 +20 
PRINT I 


38 INPUT P” 
40 PRTNT P 


fig. 8 
Agora você já tem uma pequena subrotina em lingua- 


gem de máquina na linha REM. Apague as linhas 10, 20, 
30, 40, 5, 60 e 70, digite: 


100 SLOW 


e rode o programa. Tudo continua como no começo, 

pois o programa em BASIC ignora tudo o que estiver nu- 

ma linha REM. Seu programa em linguagem de máqui- 

na está bem quietinho e só será despertado por um USR. 
Vamos agora chamar a subrotina. A linha : 


190 CLS 
pode ser substituída por 


190 LET LIMPEZA = USR 16514 
195 CLEAR 


A variável LIMPEZA não serve para nada: sua única 
finalidade é poder fazer constar da linha USR 16514. 
A linha não poderia começar por USR pois esta é uma 
função e não uma KEY-WORD. O argumento 16514 
corresponde ao primeiro byte após o REM da linha 1. 

Rode agora o programa assim alterado. Bem mais rá- 
pido não? 


Dê um BREAK enquanto a tela estiver enchendo. Se 
a seguir você digitar NEW LINE, deverá outra vez espe- 
rar que a tela se apague lentamente. 


Vamos agora fazer outra experiência: no endereço 
16527 foi colocado o byte do caractere que precisa en- 
cher a tela. No nosso caso, o byte era (), correspondente 
a um espaço vazio. 


Vamos escolher um outro caractere correspondente 
ao byte 146. 


Vamos digitar então: 
POKE 16527,146 


Digite RUN e veja o que acontece. 

Dê um BREAK e liste o programa. 

Vamos produzir agora uma última loucura (esta dica 
vai ter um final apoteótico). 

Digite esta rotina: 


5 SLOW 
10 FOR C = 128TO 191 
20 POKE 16527,C 
30 RAND USR 16514 
40 NEXT C 
50 STOP 


e rode o programa com RUN. 
Você saberia explicar o que aconteceu? 





Úicas 


(Gravação automática 


Um dos primeiros erros cometidos pelos principiantes 
em TK é o de comprar fitas cassete de longa duração e 
nelas gravar uma grande quantidade de programas. Após 
um certo período de experiência percebe-se que esta téc- 
nica apresenta dois problemas: 

I)Fitas de longa duração são mais delgadas e mais 
frágeis. 

2) Muitos programas numa única fita produzem buscas 
demasiadamente demoradas. 

O aconselhável, então, é comprar fitas de curta dura- 

' ção e gravar poucos programas nelas. 

O ideal seria a gravação de um único programa por fi- 
ta. A busca seria imediata. 

isto pode ser feito quando dispomos de programas 
longos. 

Se os programas forem curtos (1a 4 K) e não exigi- 
rem armazenamento de dados, podemos digitá-los todos 

- numa única sequência colocando no programa um menú 
“| inicial proporcionando a escolha. 

Obviamente este processo aumenta um pouco o tem- 
po de transferência de fita para a RAM do computador 
€ exige expansão de memória. 

O tempo gasto na transferência, porém, é altamente 
compensado pela economia na busca do programa. 

Entretanto, por mais curta que seja a fita, dificilmen- 
te ela será totalmente tomada pelo programa. Vale a pe- 
| na, então, gravar o mesmo programa repetidas vezes: um 
* pequeno acidente de gravação, uma interferência de uma 
“emissora de FM, uma falha no revestimento da fita, põe 

o programa a perder. Uma gravação múltipla já diminui 























o risco de perda (lembre-se da Lei de Murphy). 

Para que O processo de repetição da gravação não se 
torne enfadonho, podemos usar um pequeno truque. 

Digamos, por exemplo, que se queira gravar, várias ve- 
zes, o programa “ARQUIVO” que é oferecido aos leito- 
res neste número. Basta então, acrescentar ao fim do 
programa as linhas mostradas na fig. 1, colocar a fita no 
começo, dar o comando 


GOTO 9000 
e lr tomar um BA sbt 





SOCORSCUE “RAQUIUB" 
SãOIa PEINT “AIGIT E ““SrREQKR 
aFog PRUSE Sor 

SOTO 





BEL E POL a 
fig. 1 
A linha 9030 fará o processo se repetir n vezes. 


Quando este programa for carregado, novamente no 
computador, aparecerá a mensagem: 


DIGITE “BREAK” 


mas não se apresse; se a pausa de tempo for superada o 
programa põe o computador no modo “SAVE”, mas 
não é apagado da memória. Os riscos que aparecem na 
tela, inclusive, são característicos da emissão e não da re- 
cepção. Basta digitar “BREAK” a qualquer momento e 
NEW LINE, que veremos a listagem do programa. 

Vamos então organizar nossa biblioteca de programas 
e cuidado para não tomar cafezinhos em excesso. 
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PROGRAMA DO 
Crepe 


Luiz G.C. Antunes 


Este Jogo é um jogo de dados muito conhecido nos 
cassinos de todo o mundo. 


Joga-se com fichas, voce joga contra a banca, que, nes- 
te caso é o computador. 

Se o resultado na primeira vez for 7, ou 11, a banca 
vence, se for 2,3 ou 12, você vence. 

Se não for nenhum desses resultados, o jogo fica inde- 
finido, e jogam-se os dados novamente. 

Agora, se a banca repetir o número anterior, você per- 
de. E se a soma dos dados for 7 você vence. 


OBREM C-MICROMEGA 1983 


180180 LET CT=8 

19028 CLS 

1038 PRINT 

1iBD42 PRINT TAB 9; "JOGO DE CREPE” 

1250 PRINT 

i1iBDEB PRINT “U.SABE AS INSTRUCÕOES 
SAMI Tr 

10780 INPUT AS 

1980 IF Ag="5" THEN GOTO 153186 

18098 CLS 

119090 PRINT “INSTRUCOES* 

1118 PRINT 

11280 PRINT “O CREPE E UM JOGO DE 
DADOS. JOGA -SE COM FICHAS.V. JOS 

A CONTRA AR BANCA." 

11350 PRINT 

11480 PRINT “SE O RESULTADO DOS D 


ADOS PRI MEIRA JOGADA FOR 7 OQ 
UU 11,8 BANCA VENCE.” 

11586 PRINT 

1166 PRINT “SE FOR 2,5 OU 12.U,4 
ENCE 

1170 PRINT 
1180 PRINT 
SSES,0O JOGO 
GAM-SE OS 
11980 PRINT 


“SE NÃO FOR NENHUHN DE 
FICA INDEFNIDO,E JQ 
DADOS DE NOVO.” 


1206 PRINT “PRESSIONE À TECLA «<«N 
EW LINE > P+CONT INURBR. * 

1218 INPUT BS 

1228 CLS 

tia PRINT “INSTRUCOES (CONTINUAR 
12402 PRINT 

12580 PRINT “ACGORA,SE A BANCA REP 
ETIR O PONTO ATERIOR,V.PERDE. ” 
1260 PRINT 

1270 PRINT “E SE AB SOMA DOS DADO 
5 FOR 7,4. GANHO. 


1288 PRINT 


1298 PRINT “PRESSIONE A TECLA «mn 


EU LINE > P>COMECAR BA JOGAR.” 
1308 INPUT B&% 

1310 LET F=10 

1328 CLS 

13380 PRINT “BEM UINDO A MESA DE 
CREPE ." 


1340 PRINT 
Re PRINT 


“VOCE TEM “,F;”" FICHA 
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LEITOR re 


1360 PRINT 


13760 PRINT “UOCE TEM “;CT;” CRUZ 
ECIROS.” 

1350 PRINT 

15980 PRINT “CADA FICHA VALE 1880 
CRUZEIROS.” 

1408 PRINT 

1418 PRINT “QUER TROCAR FICHA Ps, 
DINHEIRO [aoZNa 

1420 INPLIT AS 

145350 IF Ag="'5" THEN GOSUB 1970 
1440 PRINT 

1458 PRINT “QUER TROCAR DINHEIRO 
P2ZFICHA (S24N) 9º 

1460 INPUT Ag 

1470 IF A$g="5S5" THEN GOSUB 2988 
1480 PRINT 

1498 PRINT “QUER APOSTAR (S/N) ? 
15800 INPUT Ag 

1518 IF Ag<>"S" THEN GOTO 1898 
15298 PRINT 

1538 PRINT “QUANTAS FICHAS" 

15402 INPUT A 

1550 IF ARA>F THEN GOTO 1530 

1568 IF A<6BG THEN GOTO 1536 

1570 IF A=92 THEN GOTO 1890 

1558 GOSUB 2358 

1598 DIM DI2) 

16908 LET D(I1) =DI+D2 

1618 IF D(iã)=7 OR E(l)=11 THEN GC 
oTO 1636 

1628 GOTO 12630 

1638 GOSUB 2218 

1642 GOTO 1858 

16560 IF D(1)=2 OR D(1)=53 OR D(I) 


=12 THEN GOTO 1676 


1568 
1678 
1686 
16968 
17808 


SIONE 


GOTO 1696 
GOSUB 2278 
Goro 1858 


PRINT 
“JOGO INDEFINIDO.PRES 


PRINT 
A TE CLA <NEU LINE» PzJOG 


AR NOVAMENTE OS DADOS.” 


1718 
1729 
1730 
1740 
1750 
17650 
1778 


INPUT Bg5 

GOSUB 23308 

o D (2) =D1+D2 
IF D(I1I)=D(2) THEN GOTO 1760 
GOTO 1788 

GOSUB 22128 

soro 1856 

IF D(2)=7 THEN GOTO 18024 
coTo 1826 

GOSUB 2276 


LET D(I1)=D(2) 
GOTO 1698 


PRINT 
PRINT “QUER CONTINUAR JOGAM 


(SZ2N) 92% 


1866 INPUT AS 
CLS 


1587608 
1880 
15896 


IF AE=]"5S" 
PRINT 


THEN GOTO 132 
“SEU SALDO E DE “SF; 


FICHAS" 





“E DE “Ci CT; CRUZEIRO 


“TENHA UM BOM DIA“ 
D 


meti io o áua, 


1940 PRINT TAB 12; "“TK CROUPIER." 
1958 STOP 

1968 REM SUB FICHA/DINHEIRO 

1978 CLS 

19898 PRINT “QUANTAS FICHAS 2” 
1998 INPUT LTL 

a IF C>F OR C<8 THEN GOTO 197 


22910 LET CR=T+108 
28020 LET CT=CT+CR 
22380 LET F=F-C 


2848 CLS 
2050 PRINT “U.TEM “;F;* FICHAS E 
. "4 CT; CRUZEIROS." 


29980 PRINT “QUANTOS CRUZEIROS 2" 
» 2180 INPUT D 
2110 IF D>CT OR D<G6 TREN GOTO 28 


2128 LET FP=INT (tD/198) 

2136 LET CT=CT-D 

2140 LET F=F+FP 

21580 CLS 

21680 PRINT C"U.TEM E. = dei 
4» CT,” CRUZEIROS. 

2178 RETURN 


FICHAS E 


2180 REM SUB ERRO 

2190 PRINT “VALOR ILEGAL.POR FA! 
OR REESCREUVA” 

22908 RETURN 

2218 REM SUB PERDEDOR 

2220 PRINT 

2250 PRINT “A BRANCA VENCE. * 

2240 PRINT 


2338 REM 5U5 DADOS 
2340 LET DI1I=INT (S+*RND) +12 
2350 LET D2=INT (6G+RND) +12 


2370 PRINT “O RESULTADO DOS DADO 


2300 PRINT AT 5.180:D1 
2390 PRINT AT 13, 18; D2 
24020 RETURN 

24 10 SAVE “CREPRB 

24290 GOTO 10900 

2438 STOP 





| PROGRAMA DO LEITOR 


Tabela Price 








Samuel Ejchel 












Como sugestão e complementação ao problema do 
Ministro, queria lembrar que a conhecida Tabela Price, 
muito usada em negócios imobiliários, é justamente cal- 
culada com base em capitalização instantâneas. Assim o 
| programinha anexo “Tabela Price” (fig. 1) pode ainda 
- ser de utilidade prática para corretores, e merece ser di- 
| vulgado. Com ele pode- se calcular, inclusive, a taxa para 
| frações de ano, se “entrarmos” com N sendo a fração do 
| ano. 


, La Exemplo: para achar o fator da Tabela Price para a 
| prestação que amortiza uma dívida em 10 meses, en- 
| trar famos com N = 1/12. Note-se porém, que os resul- 

tac os são bastante próximos, mas não coincidem exata- 
e nte com os tabelados. O valor da “taxa ano" deve ser 
- or um número decimal, ou seja, se a taxa for 


aa. 10 valor a alimentar será .09. 








ES 


Ri 
E 
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o REM TABELA PRICE 
10 PRINT “TAXA ANUAL ="; 
28 INPUT J 


2 
sa PRINT dá a 


62 PRINT N 

70 PRINT “T.PRICE="; 

82 PRINT EXP CXIN)S(TI/12) 2((11 
+I2712) 45 (12435N)) -4) 


EXEMPLO: 
TARAXR ANURBL =. BS 


ANOS =3 
T «PRICE=.0315831787 


fig. 1 


O 
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PROGRAMA DO LEITOR 


O TK no Direito Trabalhista 


e Cível 





Dr. João Carlos Normanha Salles 


Os programas são aplicativos tanto para a área de Di- 


reito Trabalhista quanto Cível, pois uma das maiores di- 1 BEM 
ficuldades dos advogados militantes é a realização da lIi- = ERR ta, so ma NORMANHA SALLES 
quidação processual, ou seja, transformar o direito reco- INT “ATUALIZACAO TRAB 
nhecido pela justiça de seus clientes no correspondente LH gi pn 
em dinheiro a ser recebido da parte condenada. 138 PRINT “TECLE MES ATUAL E «N 
Quando o usuário fornece a data do ajuizamento, a EU LINE> 
data presente, o valor da parcela, o programa aplica to- ao aa ça é 
dos os dispositivos legais para atualização desta parcela. 48 PRINT “TECLE ANO ATUAL E «mn 
Posteriormente, quando não houver mais parcela alguma E Ao E 
a ser atualizada, o programa oferecerá um resumo deta- E? PRINT 
IZACÊ A 8 PRINT 
lhado de todas as atualizações que foram feitas no mes 82 PRINT “CONFIRA: MESº2 “;A:” 
mo processo e ainda a quantia a ser recolhida a título de aNOo= “";B 
imposto de renda retido na fonte para Receita Federal. aa pa dA 
fig. De 1 95 PRINT 
ide PRINT 
1414 PRINT “TECLE ME , AJUIZAMENT 
MES > 24 aNo = 1982 IJ E <NEU L 
JUROS CALCULADOS EM 2 MESES O DIR 
é 1424 PRINT “"TECLE ANO RUJUIZAMENT 
PRINCIPAL = CR& 1990920 O E <NEL LINES> 
INDICE = 2.7 156 PRINT ” 
LAS PETNT 
RE ARE RE a PEER PS Aa SEN ty ano di ciudad “CONFIRA: ME5S= “;C;* 
k 
UALOR ATUAL = CR$ 172000 188 PDUSE 2006 
198 CLS 
TAXA DE 1 POR CENTO a = 12,2; "JA ESTOU PRO 


L7BB 
CR$ 171780 


JSUROS = CR$ 




















“TRABALHISTA” 


2020 PRINT AT 
NTO PARA ATUALIZAR 
TECLE OS DADOS 


AS PARCELAS: 


JBLOR TOTAL. SOLICITADOS 
E «<NEU LINE>” 
282 LET 0=8 
204 LET R=ô8 
226 LET 5=8 
288 LET T=0 
212 PAUSE 269 
3294 CLS 
3380 LET E=((B-D) +12! +:R-C) 
| o 342 PRINT “MES 2" 
ERES ase INPUT F 
3608 PRINT AT B,4; = “;F 
DO PRINCIPAL =CRã 228068 S7O PRINT AT e,15;"ANO Tº 
384 INPUT E 
DO CORRIGIDO = C&$ 355S00a 392 PRINT AT Q,19;" 6 
200 LET H=((B-É) =12) + (RDF) 
DOS JUROS = CR$ 9298 410 IF H>E THEN LET I=E 
422 IF E>=H THEN LET I=H 
E -CRS S7728B 430 IF I=i THEN PRINT AT 2,0;' 
IROS CALCULADOS EM 1 MES" 
JROS CALCULADOS EM cor; usei: 
a t  . .. dis 
I.R. (DARF? = CR$ 459 45? PRINT AT 4,G; “PRINCIPAL 2” 
466 INPUT 4 
470 PRINT AT 4,18;"” CR$ “ju 
4884 PRINT AT 6, BD; “INDICE e dada 
fig. À fig. 1 
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45% INPUT K 

520 PRINT AT 6,7; = “;K 

SO PRINT HT BUD Came smsraras csesrtasrãs 
S28 LET L=INT (1004(J*K)) 7/1900 
539. PRINT AT 198,8; "UALOR ATUAL 
“SAB LET N=INT ((I/DztL)iz100 
545 LET 0=I/2 

598 PRINT AT 14,8; "JUROS = CR$ 
555 PRINT AT 12,0; “TAXA DE “;0; 


* POR CENTO” 
082 LET N=L +M 
.2*?8 PRINT AT 16,0; "UALOR TOTAL 


3N 

LET 0=0+U 
LET R 
LET 
LEE + 
LET U (558. 05) 
PRINT HO £B,B; 


INPUT ZY% 
6560 IF £8=5" 
IF Z&="N" 
CLS 
PRINT 
PRINT 
PRINT 
=CR$ “;O 


H] 
| 













THEN GOTO 326 
THEN GOTO 708 


AT 8,11,. 
AT = ; 
AT 
AT 


AT 





2; 
, Q; “DO PRINCIPAL 


+ 


6,8; “DO CORRIGIDO 
8,28; "DOS JUROS = C 
10,0; "MERECER CRS 
14,2; "“I.R. (DARF) = 


AT 
AT 





AT. 


Yg 
IF Y$5=]"5" 





THEN COTO 3 


S190 IF Yg="Nº THEN CLS 
820 PRINT AT 180,18; “FIM 
fig. 1 


O programa seguinte diz respeito a atualização de pro- 
cessos cíveis, que recentemente pela lei 6899 de abril de 
1981 passaram também a ser objeto de correção 
monetária. Esta correção é devida somente a partir da vi- 
gência da lei segundo regulamentação feita. Por esta ra- 
zão o programa está, inclusive, em obediência a este dis- 
positivo legal preparado para rejeitar informações ante- 
riores à vigência da lei (fig. 2). 


RES 18 ANO 1982 

JUROS NO PERIODO DE S MESES 

“A TAXA DE 2.5 POR CENTO 

9RTN NA EPOCA = CR$ 2800 

“ ORTN ATUAL = CR$ 4000 

PRINCIPAL DE CR$ 12009804 
tEFFFISREFESSSSFRLESFIFEFEF RAE 
VALOR ATUAL CR$ 142857.14 

JUROS VALEM CR$ 3571.4232 

SOMA CR$ 146425.56 








DO PRINCIPAL = 
DO CORRIGIDO CR$ 342857.14 
DOS JUROS = CR$ 8571.42 
MEaCME=CR$ 351428.56 

OU 87.8571 ORTN 


CR$ 22020080 


EFIFEFEFEFIFEKIFSHISRIFELESFEREREES 
HONORARIOS DE 50 P E 

NO VALOR DE CR$ 175714.28 OU 
43.9285 ORTN 

COM I.R. DE CR$ 5785. 

E LIQUIDO DE CR$ (68928. da 





fig. 2 > 
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Revista de circulação paga 
PUBLICIDADE - FONE: 257-5767 - SP. 






LIGUE-SE À 
“INFORMÁTICA 


FAÇA COMO OS 
FUNCIONÁRIOS DA 
ALCAN, XEROX, 
SEARLE, COPAS, 
INTELPA, DARLING, 


E 4 AIR SERVICE: 
“ 


im A» S% prenni Es 


BASIC e COBOL. | 


MATRICULE-SE NA | 
$.0.S COMPUTADORES. 
CURSOS DE 


* Número limitado de alunos por 

classe e 1/3 de todas as aulas com uso 

direto dos computadores, inclusive nos cursos de | 
Cobol « Professores altamente qualificados e Cursos 


apostilados e apresentados com tr * Modernas 
instalações com vários equipamentos Dismac, Prológica, 
Sysdata entre outros * Preços extremamente acessíveis. 


SDS 


COMPUTADORES 


NÚCLEO | 
Av.Pacaembú, 1.280 
Fones: 66.7656/66.1513 


A NOVA MANEIRA DE 
APRENDER A PROGRAMAR 


NÚCLEO 1 
R.Tomás Carvalhal, 380 
(Próximo Estação Metrô Paraíso) 
Fone: 570.6097 
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398 PRINT AT 4,0;"NA TAXA DE *“; 
SJ; "" POR CENTO” 
488 PRINT AT 6,0, "ORTN NA EPOCA 


% 
418 INPUT 
ia ae K<B97. 86 THEN LET L=877. 


425 IF Kk<877.86 THEN PRINT AT 6 
20: "877.86 (4/81)* 

430 IF Kk>877.86 THEN LET L=k 
448 PRINT AT 6,20;L; 

458 PRINT AT 8,0; “DRTN ATUAL = 


M 
4780 PRINT AT 8,17;M 
4886 PRINT AT 18,0; "PRINCIPAL DE 


498 INPUT N 


S890 PRINT AT 10,17;N 
S18 PRINT AT 12,0, CIrr+r+rrrkrFII 










à REM “CIVEL EFEFIIIFIISHIIIFEAES 
8 REM DR. «JJ C NORMANHA SALLES seo LET cia =INT (100+5(NzM) /2/1),1064 
6 PRINT * ATUAL IZRCRO CIV cas “o E PR SR 
a pi es LER SSL G08S 
28 PRINT “TECLE MES ATUAL E « CRS “;P à ERPESSIES SORA ERES 
NEU LINE>* S6e LET 9=0+P 
38 INPUT A S78 PRINT AT 18,0;"SOMA CR$ “;e 
48 PRINT. S72 LET R=R+N 
SG PRINT “TECLE ANO ATUAL E + STd LET S=5+D 
NEW LINE>" S76 LET T=T+P 
20 PRINT eo Gia e ERREI 
aB8 PRINT "CONFIRA: MES ";A;" - ci aa to RO O O 
E, SOS INPUT Y$ 
98 PRINT ="S" THEN GOTO 2506 
190 PRINT “TECLE MES AJUIZAMENT a E Vea THEN GOTO 650 
9 E <NEU LINE> SE CLS 
118 INPUT € 666 PRINT AT 8,12; a 
128 PRINT... 670 PRINT AT 2,8; 
138 PRINT “TECLE ANO AJUIZAMENT 658 PRINT Ar 4 q «Bo REM rea 
o E <NEU LINE>' «CRE “IR ad 
146 INPUT D “sse PRINT AT 6,8; "DO CORRIGIDO 
158 PRINT... E cdi CRE ";S 
o vens AFINE BES JM” TOR PRINT RT S,D;"OUS JUROS & E 
176 PRINT Rd a 
: “SE - 
188 PRINT "“UALOR ORTN ATUAL = EC ri PRINT AT 18,8; CRS 
RE: 
E aosieri: nm 20 LET RE=INT ((180684U) 2M) 7/18 
186 PRINT M aee ' E = 
738 PRINT AT 12,8;“0U “;RE;" OR 
187 PRINT E 
Sao def Sgraigi o 220 735 PRINT AT 13,0; "xs2**xHF4H%% 
195 CLS HEFEFIXSFESESSISEEES E ENTUAL 
200 PRINT “ESTOU PRONTO PARA CO qiúccando sun! 44:04 PERE a 
Der E 758 INPUT U 
228 PRINT “PARCELAS. TECLE OS D “Cu. POR CENTO” HONORARIOS D 
de é a 778 LET AB=INT (Us) 2/1080 
PRINT “FOREM SOLICITADOS E Z80 LET AC=INT (AB) +90. 05 
240 = o 790 LET AD=INT ((120090+:8B) 2M) 7/1 
<NEU LINE» rs 
co cm do 898 PRINT AT 15,0;"“NO VALOR DE 
ae LET T=0 CR$& “;AB;” OU” 
O E qua 810 PRINT AT 16,0;AD;” ORTN“ 
= 815 PRINT AT 17,0; “CÓM I.R. DE 
258 PAUSE 308 CRE “-RO 
8; 817 PRINT AT 18,0; "E LIQUIDO DE 
556 PRINT AT o 4:E CRE 2X 
- » ITR 
388 PRINT AT 9,18; “ANO 2" 526 PRINT AT 20,0; 


S1B INPUT F 





à 839 INPUT & 
380 PRINT MT O ItiE ne) 640 IE 28-18" THEN GOTO 5 
is 8580 IF Zg="N” THEN CLS 
3580 IF H>=6G THEN LET I=G ” ” 


355 IF H<=6 THEN LET I=H 
S6B IF I=1i THEN PRINT AT 2,86," 
“SOS de COS PRENCERENTTAT 2,0; ru 
378 > Eres 
UJROS NO PERIODO DE "“;I;" MESES” Ambos os programas contam os juros a partir da data 


386 LET vJ=I/2 de ajuizamento da ação. 
O 
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Flavio Rossini 


O computador surge para auxiliar o homem, como 
uma máquina que não substitui seus músculos mas sim 
seu cérebro, realizando tarefas complicadas e repetiti- 
vas, executando cálculos infalivelmente e com veloci- 
dades fantásticas, deixando para o homem tarefas mais 
nobres. 

Sem dúvida o que mais contribuiu para a populariza- 
ção dos computadores foi o aparecimento dos compu- 
tadores pessoais, os quais surgiram às centenas ...eno 
meio deles, apareceu um pequeno, discreto, simpático e, 
principalmente, acessível a todos: o TK. . . Assim, ele 
começou a fazer parte de muitos lares pelo mundo afo- 
ra, quase sempre com o seguinte pensamento: TK, o 
meu primeiro computador. . . Mas ele é orgulhoso. Ele 
diz: “se os outros computadores podem tocar música, eu 
também posso. Se os outros podem fazer desenhos com- 
plicados, eu também posso. Posso até comandar o fun- 
cionamento de outras máquinas ou me comunicar por 
telefone com um dos meus 2.000.000 de irmãos. Posso 
fazer tudo que qualquer outro faz. 


De fato, apesar de não ser tão rápido e tão imponente 
ele tem o mesmo cérebro (CPU) que os “grandes”, além 
de uma grande vantagem: é acessível, em termos de pre- 
Ço, O que o tornou o computador mais vendido da His- 

* tória. . . Não só, mas ele é versátil podendo crescer junto 
com sua imaginação para fazer mil coisas. O truque está 
| nas conexões traseiras: atualmente, você já pode ligar a 


impressora e a expansão da memória. Mas e se você pu- 
desse ligar um circuito para fazer sons, ou desenhos, ou 
até mesmo fazê-lo falar? Ou comandar aparelhos exter- 
nos, um mini-robô, talvez?... Ou simular que tem gente 
em casa quando você vai viajar, para enganar os ladrões? 
Tudo isto já é possível com o surgimento dos periféricos 
TplakK. O que vem a ser eles? São placas de circuito im- 
presso que você conecta diretamente ao seu TK e que, 
aliadas a sua imaginação, permitirão ao seu microcom 
putador a realização de façanhas, as quais ele era INJUS- 
TAMENTE julgado incapaz de fazer. 


Vamos este mês comentar três placas bastante Interes- 
santes: 


a) placa de “beep” (BPO-TX3), que produz um sinal so- 
noro ao toque da tecla oupor comando de programa. 

D) placa de entrada/saída (1/O0-TX2), que permite o co- 
mando de dispositivos externos, enviando e receben- 
do sinais binários. 

c) placa de caracteres (CHR-TX4), que permite criar no- 
vos caracteres para o TK, 

A primeira delas produz um sinal sonoro cada vez que 
alguma tecla é pressionada, permitindo maior facilidade 
para a inserção de programas no computador; além dis: 
so, ao fazer em SAVE ou LOAD, o '“beep'' toca durante 
a passagem dos dados do gravador para o computador e 
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vice-versa, parando no final, permitindo a você executar 
outras coisas enquanto aguarda a passagem do programa. 


você dirige um avião que deve atingir um alvo, produzin- 
do um sinal sonoro ao atingí-lo. 





FIGURA 1 


PLACA BPO TX3 — SONORA BIP 


Mediante sonorização bip, assegura automaticamente ao usuário a entrada 
do dado correspondente à tecla digitada. Também sonoriza bip por progra- 
mação, ou seja, “bipa” nos momentos desejados, durante a execução do 
programa. Auxilia o uso dos comandos SAVE e LOAD, interrompendo o 
sinal sonoro ao final das operações, 


Finalmente, este “beep”, que pode ser ligado e desli- 
gado à vontade, pode também ser acionado pelo próprio 
programa. . . Imagine um joguinho onde você faz com 
que o “beep” toque sempre que um avião atinge um 
alvo. E já que falamos em jogos, podemos falar sobre a 
segunda placa: ela permite comandar (ligar ou desligar) 
até 8 dispositivos externos quaisquer através do seu pro- 
grama. O ligamento é sinalizado através de 8 leds. 

Além disso, ela possui 8 entradas para receber sinais 
externos. Esqueçamos, por enquanto, o comando de dis- 
positivos externos e vamos pensar apenas nos LEDS. 
Que tal se no “joguinho do avião” os leds simulassem 
um painel de controle: falta de combustível, vento mui- 
to forte, tiro efetuado ... Cinco das 8 entradas pode- 
riam ser utilizadas para um joystick que comanda a di- 
reção do avião, duas outras entradas para o acelera- 
dor. . . Assim, associando essas placas com a de “beep”, 
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FIGURA 2 


PLACA 1/0 TX2 — ENTRADA/SAÍDA 


Apresenta oito entradas e oito saídas controladas pelo usuário por progra- 
mação. Possibilita o comando de aparelhos elétricos e/ou eletrônicos, tais 
como eletro-domésticos, motores elétricos, fontes de alimentação etc. Per- 
mite, inclusive, O comando de máquinas industriais como, por exemplo, um 
torno-revólver. Admite a montagem de várias similares em série, aumentan- 
do proporcionalmente o número de entradas e de saídas de controle. 


Naturalmente, usando a imaginação pode-se chegar 
aos mais altos níveis de sofisticação. Com a ajuda de re- 
lés, pode-se até automatizar uma máquina que tenha 
motores, indicadores de fim de curso, enfim, quase um 
mini-robô 


Com esta placa, o TK pode ligar motores, disparar si- 
nais de alarme, e ser programado para execução de vá- 
rias tarefas. 


E que tal se esta placa for usada para ligar e desligar 
“aleatoriamente”, 8 luzes da sua casa enquanto você es- 
tiver viajando para enganar os ladrões? Ou comandar o 
seu gravador para facilitar o SAVE e o LOAD? Ah, e se 
8 entradas e 8 saídas forem póucas, várias placas (até 
256) podem ser ligadas ao TK, cada uma podendo co- 
mandar 8 saídas e receber 8 entradas. 


> 





FIGURA 3 
PLACA 1/0 TX2 — ENTRADA/SAIDA 


Placa TX2, montada com placa MB2 TX1 (Placa Mãe), em computador 
TK 85, 


Mas, voltando ao joguinho, se você quisesse um avião 
mesmo na tela e não apenas um desenho utilizando os 
caracteres normais do TK? Ou se você quisesse jogar xa- 
drez, utilizando o desenho real das peças na tela e não 
apenas suas iniciais? Ou escrever utilizando letras minus: 





FIGURA 4 
PLACA CHR TX4 — CARACTERES 


Transforma os caracteres da lógica Sinclair em caracteres criados pelo usuá- 
rio. É acompanhada por programa em fita cassete, possibilitando seu uso 
imediato. Equipada com memória de 1 Kb para a armazenagem dos caracte- 
res criados pelo usuário, possibilitando sua utilização em diferentes progra- 
mas, 


culas, ou letras gregas, fórmulas químicas . . ., quem sa- 
be fazer um jogo de cartas e poder desenhar os quatro 
naipes? Tudo isso é possível com a placa de caracteres 
que permite a criação de qualquer caracteres à sua esco- 
lha. Esta placa possui uma memória RAM na qual você 
pode colocar os modelos dos caracteres que deseja. 


Naturalmente, “compondo caracteres”, você poderá 
até fazer desenhos de alta resolução. .. 





FIGURA 5 
PLACA CHR TX4 — CARACTERES 


A foto mostra uma aplicação da Placa CHR TX4. Neste caso, o usuário 
usou a criação de novos caracteres para desenhar na tela essa cabeça de ca- 
valo. A montagem da CHR TX4 é sobre uma Placa MB2 TX1 (Placa Mãe) 
conectada a um computador TK8B2-C. 


Realmente estas placas ampliam o já gigantesco uni- 
verso do TK, tirando qualquer “complexo de inferiori- 
dade” que ele pudesse ter em relação a seus irmãos 
maiores. 


ANUNCIE NA REVISTA 


e tenha uma divulgação eficiente de 
seus produtos ou serviços. 


PUBLICIDADE - FONE: 257-5767 - SP. 
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Pierluigi Piazzi 
Flavio Rossini 


Vamos aprender agora uma função muito interessante 
que possibilita o computador “chutar” números; para 
entendê-la, imagine que dentro do computador existam 
INFINITAS cartas, cada carta possuindo um número 
compreendido entre ) e 1; se você ordenar: 


PRINT RND (NEW LINE) 


O computador escreverá o valor da primeira carta. 
(Note que RND é uma função e portanto você deve mu- 
dar o cursor para e apertar a tecla T). Anote este 
valor num pedaço de papel. Faça novamente: 


PRINT RIND 


Anote o novo valor (que corresponde à segunda carta) 
e repita a operação; você terá então o valor das primeiras 
três cartas. Desligue o computador; ligue-o novamente e 
repita a operação; você obterá novamente as primeiras 3 
cartas. No entanto, existe um comando que faz com 
que o computador “CHUTE” qual a primeira carta que 
ele deve escolher deste monte INFINITO, estando as 
próximas em seguida; dessa forma, você obterá sempre 
sequências diferentes. Este comando é a KEY-WORD 
RAND; faça: 


RAND (NEW LINE) (na tecla 7) 


e a seguir execute a operação acima. Desligue e ligue O 
computador faça RAND e repita. Desta vez os números 
serão diferentes (Se, por coincidência do destino, isto 
não ocorrer, repita a operação. Dificilmente você irá 
conseguir isto 3 vêzes seguidas. ..). 

Ordene agora o seguinte: 


PRINT IGBreAND 
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ora, O que você espera obter? Novamente um número 
“chutado” só que desta vez entre O e 100, não mais en- 
tre0 el. 

Se tirarmos a parte INTEIRA deste número, podere- 
mos usá-lo para jogar na LOTO. Para isto, existe a fun- 
ção INT (tecla R): 


PRINT INT (iIGAxrRND? 


Assim, obtém-se um número entre O e 99. 

Faça isto B vezes e você terá 5 números para jogar na 
LOTO essa semana. Vamos então agora “programar” o 
computador para que ele “execute” essas ordens? Colo- 
que então o seguinte programa: 


18 RAND 

2) PRINT “LOTO" 

Sa PRINT 

4 PRINT INT (RNDJ108) 
2 PRINT IMT (RND3188> 
CO PRINT INT (PNDy10B) 
2 PRI INT i(RND+120) 
Se PRINT INT iRNDZ:1585S) 


execute-o diversas vêzes (RUN e NEW LINE). Cada vez 
em que ele for executado, ele pega as próximas 5 cartas 
com números entre O e 1, multiplica-os por 100 e “des- 
preza” as casas depois da vírgula; assim, cada vez, você 
terá 5 números INTEIROS entre À e 99. 

Observe que tivemos que repetir 5 vêzes a mesma ins- 
trução; imagine se precisássemos repetila 100 vêzes. 
Não seria muito agradável ter que fazer isto. Felizmente, 
existem duas KEY-WORDS no TK que permitem orde- 
nar ao computador que ele execute diversas vêzes uma 
(ou mais) instruções. Para isto, imagine que alguém peça 
para você repetir 5 vêzes uma dada palavra; para fazer is- 
to, cada vez que você diz a palavra, você deve estar 
“contando” em algum lugar da sua cabeça (''memória”') 
O número de vêzes que você a repetiu. Da mesma for- 
ma, se desejarmos que o computador repita uma dada 
instrução, precisamos dizer em que VARIÁVEL da me- 


mória ele pode CONTAR o número de vêzes em que ele . 


a repetiu. A estrutura deve ser a seguinte: 





| 
| 
| 





FOR variável = nº inicial TO nº final 
Ê INSTRUÇÕES A SEREM REPETIDAS 
NEXT variável 


As Key Words FOR e NEXT estão nas teclas Fe N 
respectivamente; o TO está na tecla 4 (não adianta escre- 
ver as letras T e O; deve ser SHIFT 4); assim, o programa 
anterior poderia ser escrito da seguinte maneira: 


Note que usamos a variável | para fazer com que ele 
contasse de 1 até 5. Lembre-se sempre então: para repe- 
tir uma ou mais instruções elas devem estar ENTRE um 
FOR e um NEXT. A este tipo de estrutura chamamos 
LOOP de repetição. Experimente então executar o pro- 
grama. Que modificação você deverá fazer se quisesse 
obter 10 números e não 5? 


Neste ponto, várias observações são necessárias: 

a) ao terminar um loop de FOR-NEXT, a variável con- 

tadora estará com um valor de uma unidade maior do 

que o valor final da instrução de FOR. De fato, experi- 
- | mente fazer agora o seguinte comando direto: 

PRINT I (NEW LINE) 
b)a variável contadora, ao contrário das variáveis usadas 
com a instrução LET pode ter somente uma letra. Com 
a instrução LET a variável pode ter quantas letras quiser- 
mos, inclusive números, desde que o primeiro caractere 
seja uma letra. 
c) a função INT fornece como resultado o número intei- 
ro de valor imediatamente inferior ao seu argumento; 
assim temos: 
INT 5B.76=5 

















INT -S.76=-6 


“| d)numa expressão matemática, todas as funções (cursor 
13) tem prioridade máxima; assim, por exemplo, INT 
| 34*X é diferente de INT (3.4* X). No primeiro caso, 
| sendo a função prioritária com relação às demais opera- 
“ções, teremos: 

» INT 3.42X=54X 

“Agora, retire as linhas 10, 20 e 30 do programa e 
substitua as linhas 40 e 50 de tal maneira que seu pro- 
grama fique: 


0 42 FOR I=i TO 58 
» 380 PRINT I 
68 NEXT I 


Execute o programa. Veja, você ordenou que ele es- 
crevesse a própria variável onde ele está CONTANDO. 
No entanto, como ele só tem 22 linhas disponíveis, irão 
aparecer na tela os números de 1 a 22. Mas nós queria- 
mos que ele contasse até 5); ora, basta mandá-lo conti- 
nuar. Pressione: 

CONT (tecla C) e NEW LINE 
e veja O que acontece. Repita novamente (quando o pro- 
grama parar) até obter os 50 números. 

Vejamos agora como executar o programa anterior 
sem que ele pare. Note que os números são “impressos 
de cima para baixo, parando ao chegar no fim da tela; 
existe um comando que faz com que os números sejam 
escritos de baixo para cima sem interromper o progra- 
ma. Este comando é a KEY-WORD SCROLL (tecla B) e 
ao ser colocado ANTES do PRINT, ele simplesmente 
“rola” a tela para “cima”; assim acrescente a linha 45: 


45 SCROLL 


e execute O programa. Veja o efeito. Perceba que para 
cada PRINT que colocarmos é necessário um SCROLL: 
experimente acrescentar mais duas linhas ao programa 
de maneira que ele fique: 


42 FOR I=1i TO Sa 
45 SCROLL 

SO PRINT I 

S3 SCROLL 

S6 PRINT “PAZ 
62 NEXT I 


Se você não colocar o segundo SCROLL, o programa 
não funcionará. Execute então o programa. Se você 
desejar “pará-lo”” antes que ele termine (não vale desligar 
O computador) basta apertar a tecla BREAK (a mesma 
do SPACE). Para continuar, é só apertar CONT: note 
que este último sempre LIMPA a tela antes de mandar 
continuar o programa. 


Neste ponto, podemos falar um pouco sobre os núme- 
ros que aparecem no canto inferior esquerdo da tela 
quando o programa para; o número à esquerda indica o 
“por quê” do programa ter parado; o número à direita, 
indica a linha onde o programa parou. Assim, o código 
O indica tudo OK; se você deixar o programa acima ter- 
minar “sozinho” você obterá o código: 


2/68 
(tudo OK; programa parou na linha 60). 


O código D indica que o programa parou devido a um 
BREAK; se você parar o programa assim, irá obter: 


D / número que depende do instante em que 
você apertou a tela b 
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Estes códigos aparecem no fim do manual do TK; no 
decorrer do curso, procuraremos analisá-los todos. 


Vamos agora relembrar o efeito do "';”. Retire as li- 
nhas 45 e 53 e, a seguir, modifique a linha 5 para: 


Ss? PRINT I; 


e execute O programa. 
A seguir, acrescente um; também no final da linha D6: 


Se PRINT “FAZC; 


Lembre-se bem do efeito do ";" que é informar ao 
computador que o próximo PRINT deverá ser feito ao 
lado da última coisa que foi impressa. 

Vamos melhorar um pouco a tela, modifique as linhas 
50 e 56 de tal maneira que o programa fique: 


Lembre-se que para obter o espaço em branco deve-se 
apertar a tecla SPACE. Após executar o programa 
apague-o (usando NEW) e vamos introduzir uma nova 
função: TAB (letra P) que, analogicamente a uma má- 
quina de escrever, faz uma tabulação, ou seja, faz com 
que a impressão comece na coluna que desejarmos; ex- 
perimente fazer: 


12 FOR 1I=1 TO S6 
2% PRINT TAD 18,I 
390 NEXT TI 


Note que os números são escritos a partir da coluna 
10. O que aconteceria se modificassemos a linha 20 para: 


28 PRINT TAB I:l 


Faça esta modificação e veja o que ocorre. Você está 
usando uma variável para fazer a tabulação. Acrescente 
então a linha 15: 


15 SCROLL 


e note o efeito. Note que quando o argumento do TAB 
for maior que 31, o computador “dá a volta” para reco- 
meçar a escrever no início da tela (para perceber isto no 
10 programa você deverá fazer dois CONTSs). Para fir- 
mar bem o efeito do TAB e do SCROLL, altere nova- 
mente a linha 26: 


22 PRINT TAB IsSI:STAB (2+HIs;rAk” 
execute o programa deixando a linha 15 SCROLL e a se- 
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guir retirando-a. (Neste caso, não esqueça do CONT). 

Perceba que se o argumento da função TAB não for 
inteiro, o computador automaticamente calcula a parte 
inteira para fazer a impressão na coluna certa. O mesmo 
é válido para a função AT. 

Vejamos agora o efeito que a "',” (vírgula) causa na 
impressão; modifique a linha 20 de tal maneira a termos 
o programa: 


18 FOR I=i TO S6 
2B PRINT I, 
SS MBEXT IJ 


Note que a vírgula desloca a próxima posição de 
PRINT de 1/2 tela. O que ocorre se você modificar a li- 
nha 20 para: 


20 PRINT II,» 


Tente repetir o processo para 3, 4 e 5 vírgulas e repa- 
re no efeito. 

Para finalizar as “palavras novas" deste capítulo, va- 
mos supor que quisessemos uma “tela” da seguinte ma- 
neira: 


Isto pode ser feito de maneira análoga à que fizemos 
agora ha pouco para escrever na outra diagonal, se o com- 
putador contar de 21 para QD, ou seja, em contagem re- 
gressiva; para isto faça: 


19 FOR I=21 TO QB STEP -à 
28 PRINT TAB IjI 
38 NEXT I 


A palavra STEP está na tecla E, e ela significa de 
“quanto em quanto” o computador deve contar. Note 
que ao ser omitida como fizemos até agora o compu- 
tador assume STEP igual a 1, ou seja, conta de 1 em 1; 
no caso, vai de —1 em —1; 0 STEP pode ter qualquer va- 
lor; experimente mudá-lo para —2. 

Finalizando, vamos apresentar um pequeno programa 


para recordar o que vimos até aqui inclusive a função | 


po 


AT: 


cd do! qe q a ih 


o qa 


( ct 





10 RAND 

20 LET N= 10 

30 FOR |= 1 TON 

40 LET A = INT (RND*22) 
50 LET B= INT (RND*32) 
60 PRINTATA,B;| 

70 NEXT | ; 


Repare que a linha 40 “gera” um número aleatório 
entre Q e 21 e que a linha 56 um número entre d e 31 
que correspondem respectivamente às linhas e colunas 
da tela; assim iremos escrever os números de 1a 10 em 
lugares “aleatórios” da tela. Experimente a seguir subs- 
tituir a linha 20 por: 


20 LET N = 20 
E execute novamente o programa. 


Exercícios: 

1) Faça um programa que produza o efeito diagonal co- 
meçando à direita em cima (como no penúltimo progra- 
ma) SEM utilizar STEP. 


2) Faça um programa que escreva várias vêzes a palavra 

AMOR em vídeo reverso (que tenha no começo e no fim 

- | um caractere de SPACE também em vídeo reverso) em 
| diagonal, começando no canto superior esquerdo. 






| 3) Faça um programa que gere 13 números aleatórios en- 
| tre 1 e 3e apresente a seguinte saída: 


LOTERIA 







13 nºs aleatórios 


GM = NON — 


= 


equir, implemente a saída para que ela fique assim: 


LOTERIA 


Coluna 2 
Coluna 3 


Coluna 1 
Coluna 2 
Coluna 3 
Coluna 1 
Coluna 2 





Note que a palavra COLUNA não deve aparecer deslo- 
cada nos jogos 10, 11, 12 e 13. Finalmente, estude um 
método para que a saída na tela seja: 





4) Faça um programa que “encha” a tela de asteriscos 
(*) a partir da posição 10, 10. o 


PULO 
Pacdaae, 


NO 









porno pn E 
TRI TI TI 


O mais recente lançamento da MULTISOFT para o 
seu TK (TK82, TK83 e TK85). 
Emocionante aventura onde você conduzirá o 
sapo desde o ponto de partida, até uma casa vazia. 
Você deverá cruzar a auto-estrada, sem ser 
atropelado e, em seguida, atravessar um caudaloso 
rio pulando sobre tartarugas e troncos que passam flutuando. 
Para adquiri-lo, basta enviar carta com seu nome 
e endereço completos, autorizando o prazo de 
dg de 15 dias, anexando cheque no valor de 
Cr$ 5.690,00, nominal à MULTISOFT INFORMÁTICA 
LTDA. - Cx. Postal 54.121 - CEP 01296 - São Paulo - SP 


MU 


INFORMÁTICA LTDA. 
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CURSO DE ASSEMBLY 


AULA 2 





PrVrIVTI e. Ed An 


10... 

01101100" 101100 .111011% 
1100" 0110001117 “106 
10117” 010101.000 101 

01101100 0101107 111110117 


dnssdsansdãa “ANAIS” “0119' 





Flavio Rossini 


Este curso foi escrito para as pessoas que já estejam 
bastante familiarizados com o BASIC-TK mas que te- 
nham pouco ou nenhum conhecimento sobre linguagem 
de máquina. 

Iremos inicialmente, introduzir o conceito de “micro- 
processador”. O computador como nós conhecemos 
consiste dos seguintes elementos principais: 

— O microprocessador (modelo Z80) 

— à memória 

— dispositivos de entrada (teclado, joystick) 

— dispositivos de saída (vídeo, impressora) 

— memória auxiliar (gravador K7) 

O computador pode ser comparado por analogia a um 
ser humano, só que ele “fala” BASIC em vez de portu- 
guês. Assim, esse “ser” tem um cérebro (que é o mricro- 
processador) e uma memória. Você conversa com ele 
através do teclado (para enviar informações) e da tela 
(para receber informações), usando o BASIC. Acontece 
que o microprocessador NÃO entende BASIC ... Ele 
entende uma língua muito mais simples e limitada à qual 
chamamos de linguagem de máquina. Dessa forma, parte 
da memória do computador contém um programa escri- 
to em linguagem de máquina capaz de TRADUZIR o 
BASIC, para que o microprocessador entenda os coman- 
dos, e, vice-versa, capaz de traduzir as respostas forneci- 
das pelo microprocessador. 

Nosso intuito será o de conseguir conversar DIRETA- 
MENTE com o microprocessador na sua própria lingua- 
gem. E desejável para isto que você esteja bem familiari- 
zado com o funcionamento das instruções PEEK e 
POKE e com os números escritos em binário ou hexa- 
. decimal (caso você não conheça estes conceitos, comece 
lendo a aula 1 (MICROHOBBY nº 2). 

Além disso, vamos começar a entender como funcio- 
na o programa tradutor, utilizando para nossos progra- 
mas algumas subrotinas já existentes ou valores de algu- 
mas variáveis por ele utilizadas para controle do sistema. 

Vários programas serão apresentados e já na primeira 
parte do curso conseguiremos realizar um SCROLL ao 
contrário, passando a truques para lidar coma TV eo 
teclado e finalizando com um incrível programa chama- 
do LIFE, cuja listagem estamos publicando neste núme- 
ro da revista. 

Estude com cuidado CADA programa e procure res- 
ponder a TODAS as questões que ácompanham o texto 
antes de prosseguir a leitura. No final de cada aula have- 
rá eventualmente exercícios para serem resolvidos que 
foram feitos não só para recordar os conceitos aprendi- 
dos mas também com o intuito de introduzir alguns 
“truques” e conceitos muito importantes. Portanto, 
sugiro que você faça os exercícios de cada aula antes de 
prosseguir para O seguinte. 
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Seria aconselhável que você tivesse uma expansão de 
memória de 16 K para que possa executar os programas 
mais interessantes deste livro, embora ela não seja estri- 
tamente necessária para aprender a linguagem de má- 
quina. 

Você poderia se perguntar: o que esta linguagem tem 
para me oferecer? A resposta resume-se a duas palavras: 
RAPIDEZ e CONTROLE, e você perceberá logo mais. 

Bom, seja bem vindo ao Universo da Linguagem de 
Máquina. 


O QUE É A LINGUAGEM DE MÁQUINA; 
O PROGRAMA INTERPRETADOR 


A linguagem de máquina (também chamada de 
ASSEMBLY) é a “língua” que o microprocessador en- 
tende. Ela consiste, assim como o BASIC, de uma série 
de instruções, cada uma das quais comanda o micropro- 
cessador para que ele faça uma tarefa específica. Entre- 
tanto, ela é uma linguagem de baixo nível, o que signifi- 
ca que instruções complicadas como loops de FOR/ 
NEXT ou cálculos de funções matemáticas (SIN, COS, 
EXP, RND, etc.) não são disponíveis; pode-se usar ape- 
nas instruções que comandam diretamente o micro- 
processador. 


O que significa exatamente “linguagem de baixo ni- 
vel” com instruções que comandam “diretamente” o 
microprocessador? 

O problema é que o microprocessador, por ser um 
circuito eletrônico, só é capaz de entender dois níveis de 
tensão elétrica que chamamos simbolicamente de b (ze- 
ro) e 1 (um). Portanto, somos obrigados a conversar 
com ele usando códigos formados por “cadeias” (se- 
quências) de (Os a 1s, onde cada & ou 1 é chamado BIT. 
Assim, por exemplo, o código 10000101 poderia signi- 
ficar “some dois números”, o código 1010001 "pare o 
programa”, etc. Além disso, o microprocessador só é ca- 
paz de entender 8 bits (1 byte) por vez. Dessa forma, ca- 
da instrução e cada dado deve, obrigatoriamente, consis- 
tir de um ou mais grupos de 8 bits. No caso de números, 
O número máximo que podemos representar em 1 byte 
é 255. Se o número for maior que 255 ele deverá ser 
“quebrado” em 2 ou mais bytes para que o microproces- 
sador possa entendê-lo. 


Acontece que para o ser humano não é muito fácil 
conversar em Os e 1s (basta tentar imaginar uma página 
cheia de “códigos” em (s e 15). Assim convencionou-se 
que os bits seriam agrupados de 4 em 4 substituindo-os 
pelos correspondentes algarismos em HEXADECIMAL. 








Portanto, se quisermos falar diretamente com o mi- 
croprocessador, devemos lembrar que ele só entende 
bits, e cada instrução consiste em um ou mais bytes que, 
para maior facilidade de entendimento, são escritos em 
HEXADECIMAL, correspondendo, então, cada byte a 

| dois digitos hexadecimais (por exemplo C9, D4, 37, etc). 

, (OBS.: para quem não está familiarizado com as nota- 
ções acima indicadas, sugerimos novamente que, antes 
de prosseguir, leia a aula 1, números binários e hexadeci- 
mais, bit e byte, PEEK e POKE). 


A MEMÓRIA DO COMPUTADOR: ROM E RAM 


Assim como as instruções são sempre divididas em 
| grupos de 8 bits, a memória do computador também é 
| dividida em regiões capazes de armazenar apenas 8 bits 
— | cada uma. 

A memória pode ser imaginada como uma pilha de 
“registros” capazes de armazenar apenas um byte cada, 
sendo que cada registro tem um endereço que, no caso 
do TK, pode ir de O até 65535 (correspondendo a 0000- 
até FFFF em hexadecimal) (Fig. 1.1). 























CONTEÚDO 
DA 
MEMÓRIA 


ENDEREÇO 
HEXA- 







CONTEUDO 
EM HEXA- 
DECIMAL 


Fig. 1.1: Exemplo de como pode ser imaginada uma memória com 
eus respectivos endereços e conteúdo; note que o conteúdo de 
im registro de memória tem sempre 1 byte (8 bits) podendo ser 

resentado com 2 dígitos hexadecimais e seu respectivo endere- 


2b; es (16 bits), podendo ser representado com 4 dígitos he- 
Jecimais. 





A memória é basicamente dividida em duas partes: a 
primeira chamada ROM (Ready Only Memory), foi pre- 
viamente gravada por processos especiais e contém o 
programa que interpreta a linguagem BASIC, ou seja, 
“traduz as instruções do BASIC para a linguagem de má- 
quina. Esta região da memória é inalterável, não poden- 
do, portanto, ser escrita (apenas lidas) e não perde nun- 
ca seu conteúdo, mesmo desligando-se o computador. A 
segunda, chamada RAM (Random Access Memory) é al- 
terável (pode ser lida ou escriga), e é onde são armazena- 
dos o conteúdo da tela de TV, os programas em BASIC 
devidamente “traduzidos” pelo interpretador (ROM), as 
variáveis dos programas e, inclusive, os futuros progra- 
mas em linguagem de máquina que faremos neste curso. 
Ela perde seu conteúdo desligando-se o computador. 

Note que o programa interpretador (ou tradutor) que 
está na memória ROM é escrito em linguagem de máqui- 
na, pois o microprocessador deve ser capaz de entendê- 
lo. Entretanto, como todo programa, ele possui variá- 
veis, que devem ser, obrigatoriamente, colocadas na 
RAM (caso contrário não seriam variáveis). Assim, ele 
reserva para si o INÍCIO da memória RAM, mais precisa- 
mente os endereços 16384 a 16508 para colocar suas 
próprias variáveis. 

Portanto, os programas que fizermos em linguagem 
de máquina deverão ser colocados em alguma região da 
memória RAM, inteligentemente escolhida para que não 
afete o andamento dos demais programas (eventuais pro- 
gramas em BASIC), a própria tela de TV ou as variáveis 
do programa interpretador. Quando programamos em 
BASIC estes cuidados não são necessários, pois o progra- 
ma residente na ROM se encarrega de colocar as instru- 
ções em lugares adequados da RAM. 







HEXADECIMAL DECIMAL 
fis MODA ) 
PROGRAMA 
PM INTERPRETADOR 
q — 16384 
VARIÁVEIS DO PROGRAMA 
INTERPRETADOR 
16508 
“PROGRAMAS 
EM BASIC 
TV 
VARIÁVEIS DO 
PROGRAMA EM BASIC 
LIVRE 
e FFEFF 65535 
RAMTOP 


Fig. 1.2: A memória do TK — a memória só irá até 65535 se usar- 
mos a expansão de 64 K. 


Na próxima aula, veremos então COMO e ONDE po- 
demos colocar um programa em linguagem de máquina 
no computador. à 
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QUEBRA-CABEÇA 


Motoqueiro no Deserto 


MENSA 





Era uma vez um motoqueiro, não muito inteligente, 
que vivia numa aldeia à beira do deserto. Sua moto tinha 
um tanque no qual cabia combustível suficiente para an- 
dar 300 km e na aldeia ele tinha um total de combust- 
vel (incluindo o da moto) suficiente para 900 km. O mo- 
toqueiro não podia transportar nenhum vasilhame con- 
tendo combustível, mas podia levar consigo sacos de 
plástico vazios para enchê-los com parte do combust í- 
vel do tanque. Estes sacos, enterrados na areia, forma- 
vam um reservatório que poderia ser usado posterior- 
mente. 

O motoqueiro, apesar de não muito inteligente, obe- 
decia fielmente às instruções que recebia, por exemplo 
assim: 


10 ENCHA O TANQUE NA ALDEIA 

20 PENETRE 100 KM NO DESERTO 

30 FAÇA UM RESERVATÓRIO COM COM: 
BUSTIVEL PARA 100 KM 

40 VOLTE PARA À ALDEIA 

50 ENCHA O TANQUE NOVAMENTE 

60 VÁ ATE O RESERVATÓRIO 


70 COLOQUE O COMBUSTIVEL DO RE- 
SERVATÓRIO NO TANQUE 

80 PENETRE MAIS 100 KM 

90 PLANTE UMA BANDEIRA 

100 VOLTE PARA A ALDEIA 


Ele cumpriria fielmente as instruções e acabaria plan- 
tando uma bandeira a “200 km" da aldeia gastando 
combustível para “600 km”. 

Agora, para variar um pouco, ao invés de programar 
seu TK você vai programar o motoqueiro. 

Lembre-se, ele só tem um total de combustível sufi- 
ciente para 900 km e no tanque da moto cabe o equi- 
valente a 300 km. 

Tente fazer o motoqueiro plantar a bandeira o mais 
longe possível da aldeia (regressando a salvo, obviamen- 
te). 

Quem mandar o melhor programa para motoqueiro 
fazendo-o chegar o mais longe possível, receberá o prê- 
mio costumeiro e mais o título de “Raposa do Deser- 
to 83”. o 





TIG-LOADER possibilita: 


e a localização do ótimo volume do gravador, 
facilitando a operação LOAD. 
e DUPLICAR qualquer programa, mesmo aque- 
les “fechados”. 
e carregar (LOAD) e DUPLICAR simultanea- 





mente. 
PROBLEMAS e gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 
Use Tig Loader O e monitorar as operações LOAD, SAVE ou 
DUPLICAÇÃO através de fone. 
APENAS: o filtrar as interferências elétricas de baixa 


frequência, que são a causa da maioria 
CR$ 15.000,00 dos problemas de LOAD/SAVE. 





APLICATIVOS PARA TK 


TIG-SCREEN: vinte e sete rotinas de vídeo, para incrementar seus programas! 
Inversão de vídeo, moldura, arquivo de imagens, rotação, scroll em quatro 
direções, etc... efeitos visuais incríveis! Em linguagem de máquina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois é só utilizá-lo onde quizer! 

| P/ 16K Com manual explicativo Cr$ 8.000,00 


TIG-COMP: coloque, em seus programas em BASIC, a velocidade de 
código de máquina. Rode-os na forma COMPILADA! Simples de usar, 
é só carregar ou digitar o seu programa em BASIC e depois usar 
o TIG-COMP. Pronto! Você terá o seu programa em linguagem de máquina em 
instantes. 


P/16K Com manual explicativo Cr$ 15.000,00 


e e 


TIG-SPEED: uma combinação de soft e hardware, permitindo uma transferência 
de dados micro/cassete de 4.200 bauds. Você poderá carregar ou gravar 
16 Kb em 30 segundos! Acrescenta ao micro a função VERIFY. Facilimo de 
operar, compõe-se de cassete, interface e manual explicativo. 

P/16 e 48K Preço sob consulta. 


e 
— a 








Envie seu pedido + cheque nominal cruzado SER 
Prazo de entrega: 15 dias ta? =) Rua Correia Galvão. 224 
Preços válidos até 10/09/83 A CEP 01547 - São Paulo - SP 
Despesas postais incluídas nos preços 


Atendemos somente por carta TIGRE COM. DE EQUIP. P/ COMPUTADORES LTDA. 


ARTIGO PREÇO TOTAL 


O ENDEREÇO 
“ CER aii DADE iai ai A 


PROFISSÃO DATA NADO, cao a 
MENROCOMMINENO CS citas TE Sassi 
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RESPOSTA DO QUEBRA-CABEÇA 


O Banqueiro e o Ministro 


Jaime Maia Neto 


"O Banqueiro e o 
Ministro”, comecei por fazer o cálculo do número N, 
proposto no problema, para algumas partições P do ano. 


Para resolver o quebra-cabeças, 


P=2 N=15X15=(1,5)º = 2,25 


P=4 N=1,25X1,25X 1,25X 1,25= 
= (1,25)* = 2,44 


P=8 N= (1,125) = 2,57 


A essa altura, já pude ver que a fórmula genérica de 
Né: 


" Lp 
N = (1+5) 


onde P é o número de partes em que está dividido o ano. 

Acontece que a fórmula obtida, é muito conhecida do 
Cálculo. E sabe-se que quando P tende ao infinito, o va- 
lor de N tende ao número “e” que vale aproximadamen- 
te 2,7182818. Escreve-se: 


lim May = e 


p = 2,1182818 
P po 


Ora, se para um número P tão grande quanto desejar- 
mos, N não ultrapassa 2,72, então os juros não podem 
ser maiores que 172%, por mais pequena que seja a uni- 
dade de tempo usada para a cobrança de juros. 

Em seguida fiz um programa (fig. 1) que mostra que 
quando aumentamos o valor de P, N tende a “e”. 

P programa começa com um P = 71; depois P = 2; 
P=4,P=8;P=16...;mostra a unidade de tempo T 

| que se está tomando para a cobrança dos juros e o valor 
| de N. 
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O BANQO. E O MINISTRO 
12 LET PART=100204:6020*:60%424 4365 


2a LET P=1 
30 LET N=INT (10000+(1+1/P) E*P 


48 LET T=PART/P 
SO SCROLL 
69 PRINT “P=";P;" T=" 
20; TAB 24; "N="; 
72 LET P=P+2 
89 IF P/2<PART THEN GOTO 58 
98 SCROLL 
100 PRINT TAB 2;PART;“P/T=8,001 
SEG" 


fig. 1 | 

Ao rodar o programa, vi que para P = 32768 (o que 
corresponde a tomar como unidade de tempo 949,2 
seg.) N já assume o valor de 2,7182, permanecendo 
constante para valores inferiores a 949,25. 

Com espanto vi que o nosso TK82C não pode calcular 
N, com precisão, a partir de carto valor de P, o que nos 
impede de calcular N para o milésimo de segundo (ms). 

A partição do ano para o milésimo de segundo Pms é: 


; ENT FT/18B 










Pms = 365 X 24 X 69 X 67 X 1999 = 
= 3,1536 X 191º 


Como 3,1536 X 101? é muito maior que 32.768, po- 
demos assumir com acerto o valor “e” para N, quando 
usamos como unidade de tempo Q,2/1 seg. 

Agora, respondendo aos ítens do quebra-cabeça: 

A) Como o Super-Ministro toleraria juros de até 180% e 
sabia que pela proposta do banqueiro estes não pode- 
riam ultrapassar 172%, concluímos que o banqueiro fez 
papel de trouxa (não, quem fez fomos nós! n.d.e.) 
B) O capital C valerá no fim de um ano aproximada- 
mente: 


2,1182818 XC 
N =2,7182818 


C) Loge 2,7182818 = 1, pois 


e!'= 2,7182818 










O programa pedido no quebra-cabeça é o seguinte: 
ê REM ROGRAMA 2 
M P(93 


DI 

18 PRINT “TOXA PRNUAL" 

29 PRINT ” UNIDADE TBXA DE 
JUROS a 

IO L Pta: = 

40 LET P(2)=2 

50 LET P(31 =4 

690 LET P(4) =12 

o LET P(St 2360/42 

80 LET PF(6: =Z55 

Seg LET P(7) =PíiS) +24 

la LET PiS)=Píi?7) ze 

118 LET Pio =PisB; ses 

122 PRINT 

1380 PRINT? “BNO",, SEMESTRE” 4 Ra: 
RIMESTRE"., Mes") SEMANA ) “DIR 
“43 “HORR” , «a “MENUTO”, ; "SEGUNDO . 

ãi PRINT AT 3,485; 

2152 FOR C=i TOS 
asas LET J=(t(1+1/P(CI)) *95P(C)-5d) s 
PE im IF J)=0.541INT Jd THEN LET J= 
RR 


1890 PRINT INT J;TAEB iG, 
198 NEXT € 


A a 


A o as nie mr 
q 


PEQUENOS 
[ANÚNCIOS | 











Vendo TK82-C com expansão de 16 K ou troco e vol- 
to a diferença pelo TK85 (16 ou 48K). Preço base: 10% 
abaixo da tabela “'Microdigital”. Cx. Postal 177 — Join- 
ville — SC, c/ Cláudio. Aceito propostas. 


Vendo um microcomputador TK82-C, uma expansão 
de 16 K, um joystick, uma fita com jogos e o livro “49 
Explosives Games for ZX-81", por Cr$ 145.000,00 — 
João Rogério — tel.: 238-6978 (Rio de Janeiro). 


Médico anestesista procura alma gêmea para intercâm- 
bio informático em TK — Roberto Araujo — R. 
Uruguay, 205 — ap. 803 — Rio de Janeiro — RJ. 


Desejo trocar circuitos, informações e programas, 
principalmente jogos para o TK82-C com 16K —Ricardo 
Collório — R. Antonio Zini, 33 — 95680 — Canela — RS. 


CP-200, vendo por Cr$ 170.000,00 e uma calculadora 
Sharp 1211 com impressora e interface para K-7 por 
Cr$ 160.000,00 (ambos com garantia) — J. Maldonado 
— Tel.: (011) 452-6617 ou 452-6835. 


TK82-C — Jogos utilitários e aplicativos. Vendo ou 
troco. Marco Antonio — tel. 247-4071 — Rio de Janeiro. 








Nota da Redação: até a data do fechamento recebemos 
respostas corretas também de: 


WALDIR COSTA SOLA 

SAMUEL EJCHEL 

ALEXANDRE G.F. LIMA 
FAUSTO DALLARE 

JACQUES J. ABRAM 

ALLAN CHAMECKI BRIK 

LUIS GUILHERME BAROUCHEL 
ROBERTO MARQUES BEKMAN 
HERMELINDO PINHEIRO MANOEL 
CARLO FILIPO FITTI 
FERNANDO R.C. NEY MORAES 
ELOY WINTER JUNIOR 

DINEU B.A. DE OLIVEIRA 
DÁRIO JOSE SLOMP 

TEUCLE MANNARELLI FILHO 
JOSE ISSAMU YAMADA 
AMAURI S. SOUZA 

ENIO E. KRANEN 


MARCELO P.O. GOMES O 


Serviço de Datilografia — IBM. Teses, apostilas e ma- 
nuais técnicos. Telefone: 258-8486 — Américo — SP. 


Vendo Timex Sinclair 1000 — Expansão de Memória de 
64 K — HRG (Periférico para alta resolução) — |I/F (In- 
terface para saída R$S-232) e Programas — Tel.:270-3368 
(falar com TANIOS). 


Vende-se um TK-82C com expansão de 16K. Tratar 
com José Luis — Tel.: 274-5995 — Final de semana. 


MICRO BITS 
CLUBE NACIONAL DOS TK/NE/SINCLAIR — Caixa 
Postal 12464 — 04798 —- São Paulo — SP. 


Vendo computador TK-82 c/ 16K. Sistema completo: 
c/ SLOW e chave p/ vídeo-reverso mais gravador Natio- 
nal, mais 6 fitas de programas (Microsoft) e jogos, 6 li- 
vros importados c/ truques e dicas sensacionais p/o TK. 
Tudo p/ 180.000,00. Aceito contra-oferta. Tratar c/ 
Roberto — Tel.: 853-6713 à noite. O 


Xadrez 
Divulgação e 
Empreendimentos Ltda. 


TUDO PARA A PRÁTICA 
DO REI DOS JOGOS 


Xadrez Eletrônico 
Tabuleiros e peças 
Mesas e relógios 
Livros e revistas 
Aulas e Simultâneas 
Organização de Torneios 


Av. Brig? Faria Lima, 1644 - sbl. 61 - 01452 - São Paulo - SP 
Fones: (011) 814-9340 - 814-9539 
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COMO FAZER 


SUA ASSINATURA 


A nossa revista não será distribuída nas bancas. 
Para obter seu exemplar mensal, contendo muitos 
programas para o seu TK, muitas dicas e prêmios 
interessantíssimos, você deverá fazer uma assinatura: 
o preço anual da assinatura é de Cr$ 11.800,00. 
Porém, até 30 de setembro, manteremos o preço de 
Cr$ 9.900,00, com direito a uma fita inédita de jogos: 

São Paulo (2K) 

Mansão Maluca (16K) 
cujo valor comercial é superior a Cr$ 6.000,00. 

Para tanto, você deverá preencher corretamente 
o cupom anexo (não esquecendo de assinalar o brinde 
de sua escolha), e colocá-lo num envelope, junto a um 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICAÇÕES E MATERIAL DIDÁTICO LTDA,, no 
valor de Cr$ 9.900,00 (oferta válida até 30 de 
setembro). 


O QUE ESTA 
RESERVADO 
PARA O Nº4: 
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POR DENTRO po QRaPrie 


Suplemento especial para o usuário do TK aprender a 
lidar com computadores compatíveis com a linha 
APP LÊ: “marca registrada da APPLE Computers, Inc. 


PROGRAMAS DO LEITOR: 

O Professor — um utilíssimo programa didático. 
Othello — um desafio à sua inteligência. 
|-CHING — livro das mutações. 


PROGRAMAS DO MÊS: 
Pentaspeed - como gravar e ler programas no TK 82 com 
uma velocidade 5 vezes maior. 


DICAS: 
Como usar o mapa da RAM do TK. 


da MES e o 


O envelope deverá ser selado e endereçado à 


MICROMEGA P.M.D. LTDA. 
Caixa Postal 60081 — CEP 05096 
São Paulo — SP 


No verso do cheque escreva: 


“Destina-se ao pagamento de uma assinatura 
(12 números) da revista MICROHOBBY” 


Quando este cheque for devolvido ao seu Banco 
com nosso endôsso, servirá de comprovante provisório 
até que nosso recibo seja enviado pelo correio. 


Õ 





FITA DO MÊS: 
Funções da MICRON. 


CURSOS: 
Aula nº 4 do Curso de Basic. 
Aula nº 3 do ASSEMBLY. 


PEQUENOS ANÚNCIOS: 
Envie seu pequeno anúncio para ser publicado gratuita- 
mente. 


NOVIDADES: 
TK83:0 novo “design”. 
TK 85: mais funções especiais. 
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PREPARE-SE PARA O 


VESTISUDTAR 


DE UMA MANEIRA 





No NÚCLEO você pode se inscrever escolhendo as matérias, dependendo de suas reais necessidades, 
aproveitando ao máximo seu tempo. 

? Se o seu problema é MATEMÁTICA, FÍSICA, QUÍMICA, BIOLOGIA, GRAMÁTICA, REDAÇÃO, FRANCÊS, 
ETC., temos os melhores professores dos melhores cursinhos de São Paulo, para lhe dar um 
atendimento INDIVIDUALIZADO. 


TURMAS ERISTATUNO ST! 


Informações e inscrições cem 
ÇOé Çoe del orientacão 


| 


Av. Brig. Faria Lima, 1451 - 3º - Cj. 31 
Tel.: 813-4555 - CEP 01451 - São Paulo - SP 

























de fitas K-7 sistema: PASSOU... DESGRAVOU 


GARANTIA DE 5 ANOS 


Twintio 


. 





o. 


Desgrava e rejuvenesce em apenas 4 segundos, qual 
quer fita cassete independente de sua duração, eliminan- 
do todos os ruídos e chiados decorrentes de frequentes 
regravações. 

Poupa o desgaste da fita e do gravador. 

Poupa tempo e melhora a qualidade do som da fita casse- 
te na reutilização da mesma. 

Gravando em cima de outra gravação, a qualidade da re- 
produção é consideravelmente prejudicada, além de criar 
confusões, principalmente se a gravação anterior for de 
duração maiscurta. Desgravando com o TWIN-GO, nada 
disso acontece. d 
* O TWIN-GO é indispensável a todos os profissionais e | 

amadores, usuários de fitas cassete. 


a 


he ” à " e. 
RR O O o 


Pedidos por carta à 
MICROMEGA PMD LTDA, 
Caixa Postal 60081 - CEP 05096 - São Paulo-SP 
anexando Nominal ou Vale Postal, 
frete no valor 


“” E k é | 
| : 
] 





Caracteristicas Técnicas 

e Linguagem BASIC 

e 10 Kbytes de ROM, 

* 16 ou 48 Kbytes de memória 
RAM. 

e 40 teclas e 160 funções. 

e Gravação de programas em 
fita cassete comum. 

e input e Output de dados. 

e Vídeo: aparelhos de TV B&P 
ou colorido. 

* Funções especiais 
HIGH-SPEED. 

e Som Opcional. 

e Joystick, impressora. 


Preço de lançamento: 

Cr$ 219.850,00 (16 K) 
Cr$ 289.850,00 (48 K) 
(Preço sujeito a alteração) 


REVENDEDORES: ARACAJU 224-1310 « BELEM 222-5122/226-0518 « BELO HORIZONTE 226-6336/225-3305/225-0644/201-7555 « BLUMENAU 22-1250 «e BRASÍLIA 224-2777/225-4534/226-9201/ 
226-4327/242-6344/242-5159 e BRUSQUE 55-0675 « CAMPINAS 32-3810/8-0822/32-4155/2-9930 * CAMPO GRANDE 383-6487/382-5332 « CARUARU 721-1273 + CUIABÁ 321-8119/321-7929 e CURITI- 
BA 232-1750/224-6467/224-3422/243-1731/223-6944/233-8572/232-1196 + DIVINÓPOLIS 221-2942 « FLORIANÓPOLIS 23-1039 « FORTALEZA e A dp RO aÃ * FREDERICO 


WESTPHALEN 344-1550 « GOIÂNIA 2610 24-0557 + IJUÍ 332-2740 « ITAJUBÁ 622-2088 « LINS 22-2428 « LONDRINA 22-4244/23-9674 + MACEIO 223-3979/221-6776 « MANAUS 237-1793 « MO- 
GI DAS CRUZES 468-3779/208-6797 « MURIARE 721-1593 « NATAL 222-3212/231-1055 « NITERÓI! 722-6791 « NOVO HAMBURGO 93-1922/93-3800 « PELOTAS 24-5139 « PORTO ALEGRE 26-8246/ 
21-4189/24-1411/22-3151/24-0311/21-6109/24-7746 « PRESIDENTE PRUDENTE 22.2788 « RECIFE 241-4310/224-8777/224-3436/224-4327 « RESENDE 54-1664 « RIBEIRÃO PRETO 636-0586/634-4715/ 
635-1195 « RIO DE JANEIRO 267-1093/252-2050/253-3395/ 143/259-1516/232-5948/591-3297/222-6088/267-1339/329-4869/228-2650/246-4824/239-5612/542-384 8737 * SALVADOR 248-6666/ 
235-4184/247-5717 « SANTAMARIA 221-7120º SANTO ANDRE 455-4962/444-7375/454-9283 « SANTOS 4-1220/32-7045/35-1792/33-2230 * SÃO CARLOS 71-9424 « SÃO JOÃO DA BOA VISTA 22-3336 
* SÃO JOSÉ DOS CAMPOS 22-3968/22-7311/22-8925/21-3135 * SÃO PAULO 853-0164/853-0448/239-4122/36-6961/61-4049/881-1 149/258-3954/212-9004/282-2105/212-3888/545-4769/227-3022 
864-8200/222-1511/259-2600/282-6609/8 13-4555/8 14-3663/826-1499521-3779270-7442/210-7681/813-4031 + SOROCABA 32-9988 « TAUBATÉ 31-4137 « UBERABA 3331091 + UBERLÂNDIA 
234-8796 « VIÇOSA 891-1790/891-2258 « MARÍLIA 33-4109 





